VBA copy paste entire row to last row in a different sheet

[ArtyS20]

Hello:

I need help with the below code. I'm trying to copy/paste rows from "Delimited" to "Output". I want to copy all rows (starting on row 1) to last row (which is a variable number). This will be copied to Output starting on row 2 (row 1 is for headers).

So far I have the below but all it's doing it is copying only the last row to Output - not all rows. Thanks!

Dim Lastrow As Long

Sheets("Delimited").Activate
Lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A" & Lastrow).EntireRow.Copy Destination:=Sheets("Output").Range("A2")
Application.Goto Sheets("Output").Range("A2")
Application.CutCopyMode = False

 

[My Aswer Is This]

Try this:

Sub Copy_Rows()
'Modified 1/26/2022  9:34:43 PM  EST
Application.ScreenUpdating = False
Dim Lastrow As Long
Sheets("Delimited").Activate
Lastrow = Sheets("Delimited").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Delimited").Rows(1).Resize(Lastrow).Copy Sheets("OutPut").Rows(2)
Application.Goto Sheets("Output").Range("A2")
Application.ScreenUpdating = True
End Sub

 

[ArtyS20]

Try this:

Sub Copy_Rows()
'Modified 1/26/2022  9:34:43 PM  EST
Application.ScreenUpdating = False
Dim Lastrow As Long
Sheets("Delimited").Activate
Lastrow = Sheets("Delimited").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Delimited").Rows(1).Resize(Lastrow).Copy Sheets("OutPut").Rows(2)
Application.Goto Sheets("Output").Range("A2")
Application.ScreenUpdating = True
End Sub

thank you so much. It works perfect!

 

[My Aswer Is This]

thank you so much. It works perfect!

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.