Copy Rows n times on new sheet

Perhaps.

Sub Copy5()
Dim rngSrc As Range
Dim rngDst As Range

    Set rngSrc = Sheets("Sheet1").Range("A2")

    Sheets.Add

    Set rngDst = ActiveSheet.Range("A2")

    Do
        rngSrc.EntireRow.Copy rngDst.Resize(5)
        Set rngSrc = rngSrc.Offset(1)
        Set rngDst = rngDst.Offset(5)
    Loop Until rngSrc.Value=""

End Sub