VB code to Run formula untill blank cell

[Rajan_Verma]

You can also try Autofill

Sub FillDown()
    Dim rngRange As Range
    Set rngRange = Range("A1:A5")
    rngRange.Cells(1, 1).AutoFill Destination:=rngRange, Type:=xlFillValues
End Sub

Thanks
Rajan verma