ExcelBanter - View Single Post - I need a simple loop with a 4+ row added in.

PCLIVE

This will repeat your pasting loop 10 times. Adjust as needed.

ActiveCell.FormulaR1C1 = "=RC[-25]"
Range("AC10").Select
ActiveCell.FormulaR1C1 = "=RC[-25]"
Range("AD10").Select
ActiveCell.FormulaR1C1 = "=RC[-24]"
Range("AE10").Select
ActiveCell.FormulaR1C1 = "=RC[-21]"
Range("AF10").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-22]"
Range("AG10").Select
ActiveCell.FormulaR1C1 = "=R[2]C[-23]"
Range("AH10").Select
ActiveCell.FormulaR1C1 = "=R[3]C[-24]"
Range("AB10:AH10").Select
Selection.Copy

For i = 1 To 10
Range("AB" & ActiveCell.Row + 4).Select
ActiveSheet.Paste
Next i

Range("AB10").Select

HTH,
Paul

"pgarcia" wrote in message
...
I have simple macro but I'm not that good with VB code. This is what I
have:
ActiveCell.FormulaR1C1 = "=RC[-25]"
Range("AC10").Select
ActiveCell.FormulaR1C1 = "=RC[-25]"
Range("AD10").Select
ActiveCell.FormulaR1C1 = "=RC[-24]"
Range("AE10").Select
ActiveCell.FormulaR1C1 = "=RC[-21]"
Range("AF10").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-22]"
Range("AG10").Select
ActiveCell.FormulaR1C1 = "=R[2]C[-23]"
Range("AH10").Select
ActiveCell.FormulaR1C1 = "=R[3]C[-24]"
Range("AB10:AH10").Select
Selection.Copy
Range("AB14").Select
ActiveSheet.Paste
Range("AB18").Select
ActiveSheet.Paste
Range("AB22").Select
ActiveSheet.Paste
Range("AB26").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("AB10").Select
End Sub

What I like to do is run a loop. From the start point, I move down 4 rows
and paste my function and then I go down 4 rows and paste.
Thanks