Copy specific range from one sheet and paste to next available row of different sheet

Hello koklok,

This macro will paste only the values from the Range("A3:H6") on "Step 1" to the next empty row on "Step 2". Copy this code and paste it into a VBA module in your project.

Sub CopyData()

    Worksheets("Step 1").Range("A3:H6").Copy
    Worksheets("Step 2").Cells(Rows.Count, "A").End(xlUp).PasteSpecial Paste:=xlPasteValues
    
End Sub

Sincerely,
Leith Ross

Leith,

Thanks for your help but there seems to be a small glitch.
When range A3:H6 is pasted to sheet(step2), my last row has underscore in the last row and that's good, but when I run a macro for the 2nd time range pastes over the underscore.
So the bottom line is that every time I run a macro it pastes over the last row of previous macro.

I appreciate your help

Thanks

Hello koklok,

This should fix the problem...

Sub CopyData()

    Worksheets("Step 1").Range("A3:H6").Copy

    With Worksheets("Step 2")
      .Cells(Rows.Count, "A").End(xlUp)Offset(1,0).PasteSpecial Paste:=xlPasteValues
    End With

End Sub

Sincerely,
Leith Ross

Unfortunately it's still not working

Hello koklok,

When I run the macro below, the underscore is copied. Can you be more specific about the problem?

Sub CopyData()

    Worksheets("Step 1").Range("A3:H6").Copy
    Worksheets("Step 2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    
End Sub

Sincerely,
Leith Ross

Ok, Leith

I see you made a little change and it's working now I appreciate your help.

Thanks