Inserting data to next available empty cells

[Dave]

I want to put data into cells A2:G2. I then with the help of a macro button,
copy that data into the next available empty row, the first time i press the
button it will appear in rows A3:G3, then if i press it again the contents of
cells A2:G2 will appear in A4:G4 and so on..... any help please???

 

[FSt1]

hi
simple task
Sub moveit()
Range("A2:G2").Copy
Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
End Sub

regards
FSt1

 

[Don Guillett]

To copy the VALUES from row 2 to the last row
Sub copytolastrow()
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
'MsgBox lr
Cells(lr, 1).Resize(, 7).Value = _
Cells(2, 1).Resize(, 7).Value
End Sub