Autofilling Formulas in Separate Columns

[cjvenables]

Hello,

I have some code that will put formulas into the following ranges in different columns. Since the columns aren't next to each other, I'm looking for some code to autofill them in the last row of each column, aligning with column A.

Range("F4,I4,L4,O4,R4,U4,X4,AA4,AD4,AG4,AJ4,AM4").FormulaR1C1 = "=RC[-2]-RC[-1]"

I tried to make the code an autofill, but I'm getting an error. Hope someone can help me out.

Range("F4,I4,L4,O4,R4,U4,X4,AA4,AD4,AG4,AJ4,AM4").AutoFill Destination:=Range("F4:F,I4:I,L4:L,O4:O,R4:R,U4:U,X4:X,AA4:AA,AD4:AD,AG4:AG,AJ4:AJ,AM4:AM" & Range("A" & Rows.Count).End(xlUp).Row)

Thanks!

 

[drsarao]

Try this:

Sub AutoFillNoncontiguous()
lr = Range("A" & Rows.Count).End(xlUp).Row
cols = Array("F", "I", "L", "O", "R", "U", "X", "AA", "AD", "AG", "AJ", "AM") 'your columns
For c = LBound(cols) To UBound(cols)
    Range(cols(c) & "4").AutoFill Destination:=Range(cols(c) & "4:" & cols(c) & lr) 'fill
Next c
End Sub

 

[cjvenables]

Works great!

 

[drsarao]

Thanks for the feedback.