I need to duplicate a set of three numbers multiple times throughout my workday.
I found the macro below that works great for one number. How would I adjust this so it is applied to three numbers?
Currently, the macro duplicates what I have in column A as follows.
A B
1059 1059
1059
1059
etc.
Looking for this
A B C D E F
1059 2001 203 1059 2001 203
1059 2001 203
1059 2001 203
etc. etc. etc.
Current macro
Sub Code_One_thousand()
Dim NumCopies As Long, Lastrow As Long
Dim c As Range, MyRange As Range
Dim LastRow2 As Long
'Change this to the amount of time to copy
NumCopies = 1000
LastRow2 = 1
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & Lastrow)
For Each c In MyRange
Cells(LastRow2, "B").Resize(NumCopies) = c.Value
LastRow2 = LastRow2 + NumCopies
Next
End Sub
Many thanks,
Chris
Bookmarks