Public Sub CopyRows(startRow As Long, startColumn As Integer, _
        numberOfRows As Integer, numberOfColumns As Integer, repeatCount As Integer)
    Dim targetRow As Long
    Dim i As Integer

    ActiveSheet.Range(Cells(startRow, startColumn) _
            , Cells(startRow + numberOfRows - 1, _
            startColumn + numberOfColumns - 1)).Copy
    For i = 1 To repeatCount
        targetRow = startRow + (numberOfRows * i)
        ActiveSheet.Cells(targetRow, startColumn).Paste
        ActiveSheet.Cells(targetRow, startColumn).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
    Next I
End Sub