Change fixed range to dynamic in copy paste VBA Code

[An Quala]

Hello, This is a basic template copy paste code, but I want to change the fixed range of this code to the dynamic range, where Cells(2,"A") is fixed always, but Cells(5,"Z") will always change depending on the template provided, so it should take the last column and the last row instead of fixed 5 and Z, also row #1 is fixed and additionally I want an empty row after each copy of the template, thank you.

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(5, "Z")).Copy
Range(Cells(lRow + 1, "A"), Cells(lRow + 1, "Z")).Select
Selection.Insert Shift:=xlDown

lRow = lRow + 4
Num = Num - 1

Loop

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

End Sub

 

[Takae]

Is this correct? Hope this helps.
I added "On Error Resume Next" because it stops with an error when the user presses the cancel button in the InputBox.

Sub CopyData()
Dim LR As Long, LC As Long, i As Long
Dim Num As Integer
On Error Resume Next
Num = InputBox("How many Times")
On Error GoTo 0
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(Rows.Count, 1).End(xlToLeft).Column

For i = 1 To Num
    Range(Range("A2"), Cells(LR, LC)).Copy Cells(Cells(Rows.Count, 1).End(xlUp).Row + 2, 1)
Next

End Sub

 

[An Quala]

Is this correct?

Hi, it is duplicating the first column only, please check

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z
1	Product	Entity	Operation	Campaign Id	Ad Group Id	Portfolio Id	Ad Id	Keyword Id	Product Targeting Id	Campaign Name	Ad Group Name	Start Date	End Date	Targeting Type	State	Daily Budget	SKU	ASIN	Ad Group Default Bid	Bid	Keyword Text	Match Type	Bidding Strategy	Placement	Percentage	Product Targeting Expression
2	Sponsored Products	Campaign	Create	SP - Keyword						SP - Keyword		20220207		MANUAL	enabled	100							Dynamic bids - down only
3	Sponsored Products	Bidding Adjustment	Create	SP - Keyword																			Dynamic bids - down only	placementProductPage	0
4	Sponsored Products	Bidding Adjustment	Create	SP - Keyword																			Dynamic bids - down only	placementTop	0
5	Sponsored Products	Ad Group	Create	SP - Keyword	SP - Keyword - Group						SP - Keyword - Group				enabled				0.5
6	Sponsored Products	Product Ad	Create	SP - Keyword	SP - Keyword - Group										enabled		SKU 1
7	Sponsored Products	Keyword	Create	SP - Keyword	SP - Keyword - Group										enabled					0.5	keyword 1	Exact
8
9	Sponsored Products
10	Sponsored Products
11	Sponsored Products
12	Sponsored Products
13	Sponsored Products
14	Sponsored Products
15
16	Sponsored Products
17	Sponsored Products
18	Sponsored Products
19	Sponsored Products
20	Sponsored Products
21	Sponsored Products
22
23	Sponsored Products
24	Sponsored Products
25	Sponsored Products
26	Sponsored Products
27	Sponsored Products
28	Sponsored Products
Sheet1

 

[Takae]

Sorry
LC = Cells(1,columns.count).End(xlToLeft).Column