VBA to Copy Rows Until Blank Row and Paste Data on First Blank Row

[alansidman]

Try this:

Option Explicit
Sub Mel()
    Dim lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    
    Application.ScreenUpdating = False
    Range("A2:W" & lr).Copy Range("A" & lr + 1)
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox ("task complete")

End Sub