Multiple ranges?

[samilynn]

I am using this code within a macro, to autofill until the end of the range.
It works, but I can't get it to run if I want to use it on multiple columns (i.e: Columns M, R, and T).
Help, please?
thank you!
Samantha


Dim rngData As Range, rngFormula As Range
With ActiveSheet
Set rngData = .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
Set rngFormula = .Range("M2")
rngFormula.AutoFill _
Destination:=.Range(rngFormula, _
.Cells(rngData.Rows(rngData.Rows.Count).Row, rngFormula.Column))

 

[Fluff]

try

With ActiveSheet
   .Range("M2").AutoFill .Range("M2:M" & .Range("A" & Rows.Count).End(xlUp).Row)
End With

 

[kvsrinivasamurthy]

Code

Sub Macro1()
With ActiveSheet
LR = .Range("A" & Rows.Count).End(xlUp).Row
   .Range("M2:M" & LR & ",R2:R" & LR & ",T2:T" & LR).Value = .Range("M2").Value
End With
End Sub