Inserting data to next available empty cells
 

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???

Inserting data to next available empty cells
 

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

regards
FSt1

"Dave" wrote:

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???

Inserting data to next available empty cells
 

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dave" wrote in message
...
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???