Copy multiple columns x number of times based on variable number?

So what I would like to do is take Columns E, F, and G and copy those columns to the right (formatting and formulas included) x number of times based on a cell variable.

This is my code below but it seems to do what I am asking right for the first time, but then it just copies Column G for all of the other columns:

   For m = 1 To ColumnCount
        Columns(5).Copy Columns(8).Resize(, m)
        Columns(6).Copy Columns(9).Resize(, m)
        Columns(7).Copy Columns(10).Resize(, m)
Next m

Originally Posted by Arkadi

I believe you want offset, not resize, and that will still cause overlap that way, but try this:

For m = 0 To ColumnCount - 1
        Columns("E:G").Copy Columns(8).Offset(, m * 3)
Next m

So that code works where it copies each of the three columns over correctly. However, the only issue is that it repeats the code for 3 times the necessary amount.

If you remove the m*3 portion of the code it does not copy each individual column over correctly.

Originally Posted by nobodyukno

So that code works where it copies each of the three columns over correctly. However, the only issue is that it repeats the code for 3 times the necessary amount.

If you remove the m*3 portion of the code it does not copy each individual column over correctly.

Unsure what you are doing. I ran this code and it copied over 2 times. The m * 3 is telling it how many columns to shift right when copying over. Since you have 3 columns, it is looking to start 3 columns over.

Sub Test()
    Dim m As Integer, ColumnCount As Integer
    
    ColumnCount = 2
    
    For m = 0 To ColumnCount - 1
        Columns("E:G").Copy Columns(8).Offset(, m * 3)
    Next
End Sub

Originally Posted by Arkadi

m*3 is just how far over the code moves the copied data. If you assign "ColumnCount" a value of 3, my code would copy E:G 3 times... is that not what you want?

Sorry you're right, I was making my ColumnCount formula to complicated to try to incorporate the addition of 3 columns.

Thanks for the help!