issue while copying and pasting

[Raju Kumar Singh]

Hello guys!!

I need your assistance for the below code, its not working.

Sub debug_ing()


Worksheets(7).Cells(1, 1).End(xlDown).Copy
Worksheets(7).Cells(1, 9).End(xlDown).Offset(1, 0).PasteSpecial


End Sub

When I am runnng this code, error msg box pops-up. Its says "Run time error 1004" and "Application defined or Object defined erorr"


Regards,
Raju Singh

 

[RoryA]

Try this:

Sub debug_ing()

With Worksheets(7)
   .Cells(.Rows.Count, 1).End(xlUp).Copy
   .Cells(.Rows.Count, 9).End(xlUp).Offset(1, 0).PasteSpecial
End with

End Sub

 

[Raju Kumar Singh]

Hi RoryA,,,,,Thanks a lot!!! I understood now....

Regards,
Raju Kumar Singh