Copy Cells to available blank cells in rows below loop

Can you modify this code:

Private Sub CommandButton1_Click()
 Dim lastRow As Long
    lastRow = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Rows(lastRow).Copy Destination:=Rows(lastRow + 1)
End Sub

This copies last row into next available row.

I misunderstood the question. Disregard my post. I am new!

Worked Great. Thank you so much.