Como encuentro la ultima celda no vacía

Te anexo 4 posibles opciones, elige la que más te agrade. Si los datos siempre están como lo estás poniendo en tu ejemplo, es decir, entre el total y la última fecha siempre hay uno más renglones vacíos, te recomiendo la opción2

Sub EncontrarUltimaCelda1()
'Por.Dante Amor
    Range("B" & Rows.Count).End(xlUp).End(xlUp).Select
End Sub

Sub EncontrarUltimaCelda2()
'Por.Dante Amor
    Range("B1").End(xlDown).Select
End Sub

Sub EncontrarUltimaCelda3()
'Por.Dante Amor
    For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
        If Cells(i, "B") = "" Then
            Range("B" & i).Select
            Exit For
        End If
    Next
End Sub

Sub EncontrarUltimaCelda4()
'Por.Dante Amor
    i = 1
    Do While Cells(i, "B") <> ""
        i = i + 1
    Loop
    Cells(i - 1, "B").Select
End Sub