Last Row Macro Question

[spyldbrat]

Hello,

I am trying to paste the data from one tab to another in first row of data available. How do I modify this so that is just pastes as is (not as a value)?

Range("a2:j1000").Select
Application.CutCopyMode = False
Selection.Copy

Dim lastrow As Long
lastrow = Sheets("Invoice List").Range("A65536").End(xlUp).Row

Sheets("Invoice List").Select
Cells(lastrow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[Fluff]

How about

Dim lastrow As Long
With Sheets("Invoice List")
   lastrow = .Range("A65536").End(xlUp).Row
   Range("A2:J1000").Copy .Range("A" & lastrow + 1)
End With

 

[spyldbrat]

Works perfectly!

Thank you.

 

[Fluff]

You're welcome & thanks for the feedback.