Add formula to the last row of a named range

[atomazos]

Hi all,

How can i add a formula to the last row of a named range?

Thanks

 

[Scott Huish]

I'm assuming you're looking for VBA.

Sub test()
Dim r As Range
Set r = Range("namedrange")
r.Offset(r.Rows.Count - 1).Resize(1).Formula = "=A1"
End Sub

 

[atomazos]

That's excellent! Thanks Scott much appreciated!