Do until last row

I've been trying to work out how to format cells until the last cell that has data in and then stop. I have written the code for the formatting but just need some help with making it run until the last cell with a value in it. I would prefer it in this format.

Sub Vibration()
Dim i as Long
i=0
For i = 57 to (code for last cell with value in it here)

#FORMATTING CODE#

next i
End Sub

The column, if needed, is BA.
Thanks