Macro to more efficiently copy/paste every 21 rows

Hi everyone, I have recorded the following macro below and it works for what i need it to do but I am looking to learn how to better write macros and the code on this macro where i am copying every 21 rows the same data, I suspect could be done more efficiently with a loop or some other method. Could someone show me the best way to make this macro more efficient so I could learn from it? Thanks.


Application.Calculation = xlManual

Range("C10:AU30").Select
Application.CutCopyMode = False
Selection.Copy
Range("C31").Select
ActiveSheet.Paste

Range("C52").Select
ActiveSheet.Paste

Range("C73").Select
ActiveSheet.Paste

Range("C94").Select
ActiveSheet.Paste

Range("C115").Select
ActiveSheet.Paste

Range("C136").Select
ActiveSheet.Paste

Range("C157").Select
ActiveSheet.Paste

Range("C178").Select
ActiveSheet.Paste

Range("C199").Select
ActiveSheet.Paste

Range("C220").Select
ActiveSheet.Paste

Range("C241").Select
ActiveSheet.Paste

Range("C262").Select
ActiveSheet.Paste

Range("C283").Select
ActiveSheet.Paste

Range("C304").Select
ActiveSheet.Paste

Range("C325").Select
ActiveSheet.Paste

Range("C346").Select
ActiveSheet.Paste

Range("C367").Select
ActiveSheet.Paste

Range("C388").Select
ActiveSheet.Paste

Range("C409").Select
ActiveSheet.Paste


Range("C31:AU429").Select
Range("AU429").Activate
Application.CutCopyMode = False
Application.Calculation = xlAutomatic
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Sorry about that, I am new to the forum. thanks for the information. Here is my post, updated.

Please Login or Register  to view this content.

Try

Please Login or Register  to view this content.