Worksheet_Change 2 Bedingungen

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Aufmaß").Column(5) Then GoTo Step1
If Target.Address  "$J$1" Then Exit Sub
Dim m As Variant
On Error Resume Next
m = WorksheetFunction.Match(Cells(1, 10), Sheets("Aufmaß").Range("B:B"), 0)
If Err.Number Then
Else
Sheets("Aufmaß").Cells(m, 1).Select
End If
Step1:
'Set Target = Intersect(Target, Range("E:E"))
Sheets("Aufmaß").Cells(Target.Row, 11) = Now
'  Set Target = Nothing
On Error GoTo 0
End Sub