Abhängigkeiten von Zelleinträgen

Sub Eintragen()
Dim rng As Range
Set rng = Range("I2")
Do Until IsEmpty(rng)
If rng = "sonnig" Then rng.Offset(0, 1) = "ensoleillé"
If rng = "sonnig" Then rng.Offset(0, 2) = "soleggiato"
If rng = "halbschattig" Then rng.Offset(0, 1) = "mi-ombre"
If rng = "halbschattig" Then rng.Offset(0, 2) = "preombra"
If rng = "schattig" Then rng.Offset(0, 1) = "ombre"
If rng = "schattig" Then rng.Offset(0, 2) = "ombra"
Set rng = rng.Offset(1, 0)
Loop
End Sub

Das Problem ist nur, dass nicht unbedigt jede Zelle in der Spalte "I" gefüllt ist. Und dieses Makro stoppt bei der ersten leeren Zelle. Ich möchte allerdings das Makro für die ganze Spalte ausführen und die "leeren" Zellen überspringen.
Gibt es hier eine Alternative?
Vielen Dank