Multiple Times Paste within the same sheet

[An Quala]

Hello,

It's a pretty straightforward issue, I need to paste a set of rows (template), available in the first 3 columns of the excel sheet multiple times, for instance, 500 times, can anyone please help me to that with a VBA Code?

I am a very beginner with VBA.

Thank you.

Template Example.xlsx
	C
4
Sheet1

 

[Joe4]

Note that you image did not come out right. Can you try posting that again so we can see what we are working with?
Note that there is a Test Here forum you can use to test post these images to make sure you are doing it correctly before posting to this ticket.

 

[MARK858]

Just to add to what Joe4 has said, you need to select the range you want posted before using XL2BB. You only had C4 selected when you used it the first time.

 

[An Quala]

My Template.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S
1	Record ID	Record Type	Campaign ID	Campaign	Campaign Daily Budget	Portfolio ID	Campaign Start Date	Campaign End Date	Campaign Targeting Type	Ad Group	Max Bid	Keyword or Product Targeting	Product Targeting ID	Match Type	SKU	Campaign Status	Ad Group Status	Status	Bidding strategy
2		campaign		ABC	10	181145945523437			auto							enabled			dynamic bidding (down only)
3		ad group		ABC						ABC	0.5						enabled
4		ad		ABC						ABC					ABC			enabled
Sheet1

 

[An Quala]

Hi, now I have attached the full image, I just want to have a VBA to paste the RANGE A2:S4 to let's say 500 times within same sheet from A5, one after another.

 

[Sanjeev1976]

Sub CopyData()
Dim lRow As Long
Dim Num As Integer
Num = InputBox("How many Times")
lRow = 1

Do While Num > 0

Range(Cells(2, "A"), Cells(4, "S")).Copy
Range(Cells(lRow + 1, "A"), Cells(lRow + 1, "S")).Select
Selection.Insert Shift:=xlDown

lRow = lRow + 3
Num = Num - 1

Loop

Application.CutCopyMode = False
Range("A1").Select

End Sub

 

[An Quala]

Perfect!! Exactly as I thought.

 

[Sanjeev1976]

Thank you for your feedback

 

[An Quala]

Thank you for your feedback

Hi, just need to confirm one thing, so if I am changing my range let's say from 3 rows to 5 rows and column S to V, then what should I change in the code? Thanks!

 

[Sanjeev1976]

Hi, just need to confirm one thing, so if I am changing my range let's say from 3 rows to 5 rows and column S to V, then what should I change in the code? Thanks!

Change from:
Range(Cells(2, "A"), Cells(4, "S")).Copy
To:
Range(Cells(2, "A"), Cells(6, "V")).Copy