Find Last Used Row in a Range

Hi,

Been working this for a while.
Can find VBA for entire column but not a range.
Came up with the code below, after looking at excel formulas.
Seems to work except if all cells in my range are empty.
Any thoughts on how to fix this or alternate code?
Thanks For your help, JV

Sub Macro3()

HavecontentPrior = 6
For Each Cell In Range("F6:F16")
If Not IsEmpty(Cell) Then
Havecontent = Cell.Row
Havecontent = WorksheetFunction.Max(Havecontent, HavecontentPrior)
End If
MsgBox Havecontent
Next Cell
End Sub