One way:
Sub MoveRows()
Selection.EntireRow.Copy
Sheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Offset(1).PasteSpecial
End Sub
Watch out for line wrapping. The line that starts with Sheets must end with
PasteSpecial.
HTH Otto
"cheeser83" wrote in message
ups.com...
I would like to select different rows on Sheet1 and then move them to
the next blank row on Sheet2. Can anyone please help?