View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Mike H Mike H is offline
external usenet poster
 
Posts: 11,501
Default Copy row to first empty row in new sheet

Hi,

You don't say which row you want to copy so this copies row 1.

Alt + F11 to open VB editor
Doubleclick 'This workbook' and paste this in on the right

Sub copyit()
Sheets("Sheet1").Rows(1).Copy
lastrow = Sheets("Sheet2").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
Sheets("Sheet2").Range("A" & lastrow).PasteSpecial
Sheets("Sheet1").Rows(1).ClearContents
End Sub

Mike

"Taylor" wrote:

I would like to:

1. Copy a row of data
2. Paste it into the first empty row on another sheet
3. Return to the sheet where the data was originally entered
4. Clear the information previously entered in the aforementioned row

Forgive me, but I know little to nothing about VBA language, so an
easy-to-understand response is greatly appreciated!

Thanks in advance!