macro to copy to and paste to next available

[haphazard]

I have used the record feature to record a macro to copy and paste a group of cells from one tab to another, but i need some help with the next part. I need it to copy the cells to the next blank row and since the amount of data copied varies each time i can't specify a specific row to copy to. Any suggetions?

 

[Yahya]

see if this code will help you

Sub Test()
Dim ws1 As Worksheet, ws2 As Worksheet, LR As Long
Set ws1 = Sheets("sheet1")
Set ws2 = Sheets("sheet2")
LR = ws2.Range("a" & Rows.Count).End(xlUp).Row + 1
ws1.UsedRange.Offset(1).Copy ws2.Range("A" & LR)
End Sub