Find Last Cell with Data and Drag that Formula Down

Originally Posted by daffodil11

Perhaps like this:

Sub TerFuge()

Dim lngBLR As Long: lngBLR = Range("B" & Rows.Count).End(xlUp).Row
Dim lngALR As Long: lngALR = Range("A" & Rows.Count).End(xlUp).Row
Range("B" & lngBLR & ":B" & lngALR).FillDown

End Sub

Thank you for the quick response but the code does not drag the formula down to the last row in Column A. All it does is update the formula in Column B's last cell. Any ideas?