Hjælp til FOR NEXT løkke

hej experter
er der nogen som har et bud på hvordan følgende kan
ændres til en lille fornuftig løkke :
--------------------------------------
Private Sub CommandButton1_Click()
If Range("b2") = "" Then
Range("b2").Activate: Range("b2") = "Ledig"
End If
If Range("b3") = "" Then
Range("b3").Activate: Range("b3") = "Ledig"
End If
If Range("b4") = "" Then
Range("b4").Activate: Range("b4") = "Ledig"
End If
If Range("b5") = "" Then
Range("b5").Activate: Range("b5") = "Ledig"
End If
If Range("b6") = "" Then
Range("b6").Activate: Range("b6") = "Ledig"
End If
End Sub