Sub tablee()
Set Rng = [A2:E41]
rr = Rng.Rows.Count
For i = 1 To 200
    Rng.Copy Rng.Offset(rr * i, 0)
Next
End Sub

Sub tt()
    Dim r As Range, i&

    Application.ScreenUpdating = False
    Set r = [a2:e41]

    For i = 1 To 199
        r.Copy
        [a1].Insert Shift:=xlDown
    Next
    Application.ScreenUpdating = True
End Sub

Sub CopyRange()
Dim Rng As Range, i As Integer, x As Integer
    Set Rng = Range(Cells(3, 1), Cells(41, 5))
    x = 43
    Application.ScreenUpdating = False
    For i = 1 To 200
        Rng.Copy Cells(x, 1)
        x = x + 40
    Next
    Application.ScreenUpdating = True
End Sub

Sub CopyRange()
    Dim Rng As Range, i As Integer, x As Integer, j&
    x = InputBox("Number of rows in table") + 3
    Set Rng = Range("a3:e" & x)
    Application.ScreenUpdating = False
    For i = 1 To InputBox("Number of copies table")
        j = j + x: Rng.Copy Cells(j, 1).Offset(3):
    Next
    Application.ScreenUpdating = True
End Sub