Wie kann ich die letzte Zeile in einer Excel-Tabelle ermitteln, einschließlich einiger Leerzeilen in der Mitte?

Mit dieser Funktion:

Function ultimaFilaBlanco(col As String) As Long        
        Dim lastRow As Long
        With ActiveSheet
            lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, col).End(xlUp).row
        End With            
        ultimaFilaBlanco = lastRow          
End Function

Und diese Daten:

Row 1 : Value
Row 2 : Value
Row 3 : Value
Row 4 : Value
Row 5 : Value
Row 6 : White
Row 7 : Value
Row 8 : Value
Row 9 : Value
Row 10  : White
Row 11  : White
Row 12  : White
Row 13  : Value
Row 14  : White

Die Funktion gibt 5 zurück und ich brauche 13. Irgendeine Idee, wie es geht?