copy and paste 2900 times macro

  • Thread starter Thread starter DLB
  • Start date Start date
D

DLB

I have 11 rows of data that I want to copy and then paste 2900 times in the
same spreadsheet. Is there a macro that will perform this function?
 
Try the below macro. Will copy the 1st 11 rows down///2900 times

Sub mac()
With ActiveWorkbook
Rows("1:11").Select
Selection.Copy
For intLoop = 1 To 2900
Range("A" & (intLoop * 11) + 1).Select
ActiveSheet.Paste
Next
End With
End Sub

If this post helps click Yes
 
Try the below macro. Will copy the 1st 11 rows down///2900 times

Sub mac()
With ActiveWorkbook
Rows("1:11").Select
Selection.Copy
For intLoop = 1 To 2900
Range("A" & (intLoop * 11) + 1).Select
ActiveSheet.Paste
Next
End With
End Sub

If this post helps click Yes
 
Worked great...thanks for the help.

Jacob Skaria said:
Try the below macro. Will copy the 1st 11 rows down///2900 times

Sub mac()
With ActiveWorkbook
Rows("1:11").Select
Selection.Copy
For intLoop = 1 To 2900
Range("A" & (intLoop * 11) + 1).Select
ActiveSheet.Paste
Next
End With
End Sub

If this post helps click Yes
Click to expand...
 
Worked great...thanks for the help.

Jacob Skaria said:
Try the below macro. Will copy the 1st 11 rows down///2900 times

Sub mac()
With ActiveWorkbook
Rows("1:11").Select
Selection.Copy
For intLoop = 1 To 2900
Range("A" & (intLoop * 11) + 1).Select
ActiveSheet.Paste
Next
End With
End Sub

If this post helps click Yes
Click to expand...
 
Back
Top