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

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