copy paste into vacant row

[bongobus]

hi is there an easy vba code to copy a row of 3 columns example sheet 1 and paste this to another sheet 2 but on a new row after the last paste so in effect has a history

 

[Joe4]

Sure, something like this:

Sub MyCopy()

'   Copies cells A1:C1 on Sheet1 to first available row on Sheet2
    Sheets("Sheet1").Range("A1:C1").Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    
End Sub

 

[bongobus]

that's great thanks

 

[Joe4]

You are welcome!