Sheets.Add After:=ActiveSheet
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("Tabelle1")
Set tarWks = Worksheets("Tabelle3")
With srcWks
For i = 1 To .Cells(.Rows.Count, 8).End(xlUp).Row
If .Cells(i, 5).Value = "Eric Mix" Then
tLR = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 8)).Value = srcWks.Range(srcWks.Cells(i, 1), _
srcWks.Cells(i, 10)).Value
End With
End If
Next i
End With