Copy excel cell in new row

[dexex]

Hi,

I need copy cells from row to other sheet always in new row.
I use:
Sub ()
'

Range("A5:O5").Select
Selection.Copy
Sheets("Sheet4").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

... this copy cells in first row in sheet4 (old data are deleted) but I need copy new data in next row...
can you help me pls?
Thanks

 

[PHV]

There are at least 2 FAQs here explaining how to get the last row number.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886