Copy Table Range Till Last Row Using VBA

[Excel Fox]

Sub MoveTableEntire()

    With Worksheets("Sheet1")
        .Range("A1:F1").Copy Worksheets("Sheet2").Range("A1")
        .Range("A2:F" & Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)).Copy Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp)(2)
    End With
    
End Sub