Hallo Horst,

Ersetze

       End If
     End With

durch

       ElseIf .Column = 4 And .Value <> "" Then
         Target.Offset(0, -2).Select
       End If
     End With

Oder, falls es nicht wie gewünscht funktioniert, dann beschreib mal was du mit "in Spalte 4 nachschauen ob der Wert vorhanden ist" meinst.

Gruß Mr. K.