Sub MyCopyMacro()
Dim myRange As Range
Dim i As Long
Application.ScreenUpdating = False
' Set range to copy
Set myRange = Range("A1:U458")
' Copy 23 times
For i = 1 To 23
myRange.Copy Cells((i * 459) + 1, "A")
Next i
Application.ScreenUpdating = True
MsgBox "Copy Complete!"
End Sub