cut and pasting a row in another workbook on the next available l.
 

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.

cut and pasting a row in another workbook on the next available l.
 

Something like this will do the trick:-

ActiveCell.EntireRow.Select
Selection.Cut
Sheets("Sheet2").Select
Range("a65535").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

"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.

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.