VBA autofill/fill down formula multiple columns

Unfortunately it did not work as it only fills one row and it does not stop at the end date of that row. Have you tested your self on the file i uploaded?

Originally Posted by Norie

Try this.

Dim rng As Range
Dim dst As Range


    Set rng = Range("D8,G8,J8,M8")
    Set dst = Intersect(rng.EntireColumn, Rows(8).Resize(Range("E" & Rows.Count).End(xlUp).Row - 7))

    dst.FillDown

Dear Norie,

It worked, thank you so much! As the file I uploaded was only a sample, the real file has 1740 stocks which i need to perform this action upon. Is there any simpler way to set the range. To make it clear instead of writing ("D8,G8,J8,M8") to ("D8:M8")? Or else i would have to manually write from "D8" to "GRY8"

Thanks again
Hewe

Originally Posted by Norie

If you used G8:M8 you would end up overwriting data.

Is there any pattern to the columns you want autofilled?

The pattern is that of the file, but imagine it continue to 1740 stocks.. every 8th row and 4th column after each other.

("D8,G8,J8,M8".....", GRY8")

Originally Posted by Norie

If you used G8:M8 you would end up overwriting data.

Is there any pattern to the columns you want autofilled?

The pattern is that of the file, but imagine it continue to 1740 stocks.. every 8th row and 4th column after each other.

("D8,G8,J8,M8".....", GRY8")

hmm, the pattern is that of the file. but imagine it continue to 1740 stocks.. every 8th row and 4th column after each other.

"D8,G8,J8,M8".....", GRY8")

internet problem =/ sorry!

Originally Posted by Norie

Isn't it more like every 3rd column, starting at column D?

yes sorry I meant the 3rd