Repeating same range of data

[Akakumori]

Hello,
How can I dos this?
I want to repeat a range of data which contains 3 colums and 70 rows 20 times.
First colum contains a reference number, same for all 70 rows, second column a vale which doesn't change and third colum the name of 70 different countries.
I want this range to repeat again below by just changing the reference number in the first row for another value I have listed un sheet2.
As many repetitions as references numbers I have un the list of sheet2.

Can someone help me? The task is huge when I have to paste same range like 20 or 50 times when there are lots of references.

Thanks!

 

[Akakumori]

Try this

Sub Repeating_range()
  Dim sh1 As Worksheet, c As Range, lr1 As Long, lr3 As Long
  Set sh1 = Sheets("Sheet1")
  With Sheets("Sheet3")
    .Cells.ClearContents
    lr1 = sh1.Range("A" & Rows.Count).End(xlUp).Row
    For Each c In Sheets("Sheet2").Range("A1", Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp))
      lr3 = .Range("A" & Rows.Count).End(xlUp).Row + 1
      .Range("A" & lr3).Resize(lr1, 3).Value = sh1.Range("A1:C" & lr1).Value
      .Range("D" & lr3).Resize(lr1).Value = c.Value
    Next
  End With
End Sub

Thanks so much! It works perfectly!

 

[DanteAmor]

Again with pleasure. Thanks for the feedback