Connaître le nombre de lignes contenant des données à partir d'une cellule donnée

Sub Macro1()
 
Dim ld As Long ''déclare la variable ld (Ligne de Début)
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
Dim x As Long 'déclare la variable x
 
ld = ActiveCell.Row 'définit la variable ld
lf = Range("B65536").End(xlUp).Offset(1, 0).Row 'définit la variable lf
 
For x = ld To lf
'ton code
Next x
 
End Sub

Sub test()
Dim x As Integer, c As Range
'pour le nombre de lignes
x = Range(ActiveCell, Range("B65536").End(xlUp)).Rows.Count
'pour tester les cellules vides
For Each c In Range(ActiveCell, Range("B65536").End(xlUp))
    If IsEmpty(c.Value) Then MsgBox "cellule vide"
Next c
End Sub