how to create a dynamic range in VBA

[SKV]

I am developing a macro for auto-filling formulas for 3 cells for which row count can vary. So I want my macro to fill these formulas to all the required rows. Doing a macro recording I am getting a fixed length and I am NOT so good in VBA to play with the code.

Code by recording the macro -

Range("M2:O2").Select
Selection.AutoFill Destination:=Range("M2:O5598")
​

In the above code it will fill the to rows from 2 to 5598. I want this 5598 to be actually be row count.

Please advice what changes I need to make the code working

 

[VoG]

Assuming that column A is populated try

Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("M2:O2").AutoFill Destination:=Range("M2:O" & LR)

 

[xld]

With Range("M2:O2")

.AutoFill Destination:=.Resize(Range("A2").End(xlDown).Row)
End With

 

[SKV]

Thanks a lot for the help, code is now working fine

With Range("M2:O2")

.AutoFill Destination:=.Resize(Range("A2").End(xlDown).Row)
End With