VBA code to fill a table with data from another table in a unique way

[kelly mort]

From the image below, I want to use the data from A4:A13 to fill A17:A46. I need a VBA approach can someone please help me out?

Thanks in advance.

 

[My Aswer Is This]

Try this:

Sub Fill_Down()
'Modified 12/20/2021  3:30:42 AM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim x As Long
x = 17
    For i = 4 To 13
        Cells(x, 1).Resize(3).Value = Cells(i, 1)
        x = x + 3
    Next
Application.ScreenUpdating = True
End Sub

 

[kelly mort]

Try this:

Sub Fill_Down()
'Modified 12/20/2021  3:30:42 AM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim x As Long
x = 17
    For i = 4 To 13
        Cells(x, 1).Resize(3).Value = Cells(i, 1)
        x = x + 3
    Next
Application.ScreenUpdating = True
End Sub

Thanks @My Aswer Is This

you are a legend!!!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.