Copy Variable Range and past x times in new sheet with criteria

[Leochin]

i need vba coding for the work that i have to do on daily basis. i have values in 3 consecutive Columns in sheet1, let say Columns AR AS AT and 70 rows starting from AR2 AS2 AT2.(these Rows are variable some time 10 some time 70 or even 500). i need to to copy values from these columns and paste them to sheet2 multiple times till x value given in cell AV2 (x=3, Starting from 1) and also need to assign 1 2 3 numbers to these new values in sheet 2.

Sorry for language.

Initial Form

-Cut# Bud Qty Start End
-369A 1 27 1 3
-369A 2 27
-369B 1 19
-370 1 30

required Form

x Cut# Bnd Qty
1 369A 1 27
1 369A 2 27
1 369B 1 19
1 370 1 30
2 369A 1 27
2 369A 2 27
2 369B 1 19
2 370 1 30
3 369A 1 27
3 369A 2 27
3 369B 1 19
3 370 1 30

Cut# Bnd and Qty Columns are fixed and their row can vary. Starting value is always 1 and End value can vary.

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub CopyMultiples()
   Dim Lr As Long, i As Long, j As Long
   Lr = Range("AR" & Rows.Count).End(xlUp).Row - 1
   Range("AR2:AT" & Lr + 1).Copy Sheets("Sheet2").Range("B1").Resize(Lr * Range("AV2").Value)
   For i = 1 To Lr * Range("AV2").Value Step Lr
      j = j + 1
      Sheets("Sheet2").Range("A" & i).Resize(Lr).Value = j
   Next i
End Sub

 

[Leochin]

Worked like a charm. Than you so Much.

 

[Fluff]

Glad to help & thanks for the feedback