Sub ABC()
Dim rng As Range, dest As Range
Dim i As Long
Set rng = Range("A2:B5")
Set dest = Range("A7")
For i = 1 To Range("A1").Value
rng.Copy dest
Set dest = dest.Offset(0, rng.Columns.Count)
Next
End Sub

--
Regards,
Tom Ogilvy

"Tbone" wrote:

How can I copy a range of cells and duplicate it the number of times
specified in a specific cell?

For example cell A1 has 3 as the value. I want to copy A2:B5, and duplicate
it three times (the number in cell A1) and paste side by side in the same
sheet say beginning in cell A7. If cell A1 had a 7 as the value, I want to
copy and duplicate the range 7 times etc.

Thanks!