mehrere Bedingungen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngErste As Long
If Target.Column = 14 Then
If Target.Count = 1 Then
If UCase(Target) = "8" Then
With Worksheets("Lost !")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Rows(Target.Row).Copy
.Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Rows(Target.Row).Delete shift:=xlUp
End With
End If
End If
End If
End Sub