cut and pasting a row in another workbook on the next available l.
stressed
Sub Copyit()
Sheets("Sheet1").Range("1:1").Copy Destination:= _
Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
End Sub
Note: you could use Activesheet instead of Sheets("Sheet1") to make it more
generic.
Gord Dibben Excel MVP
On Mon, 29 Aug 2005 13:50:44 -0700, "stressed"
wrote:
I want to record a macro which cuts a row from a sheet and pastes the row
into another sheet without deleting any existing rows.
|