View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default 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.