Excel - VBA - Tabellen kombinieren

Sub Kombiniere()
    Set ws1 = Sheets(1) ' Sheet 1 (Bild 1)  
    Set ws2 = Sheets(2) ' Sheet 2 (Bild 2)  
    Set ws3 = Sheets(3) ' Sheet 3 (Bild 3)  
    For Each cell In ws1.Range("A2:A" & ws1.Cells(Rows.Count, "A").End(xlUp).Row)  
        With ws2.Range("E:E")  
            Set f = .Find(cell.Offset(0, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
            If Not f Is Nothing Then
                fStart = f.Address
                Do
                    Set nFree = ws3.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
                    f.Resize(1, 3).Copy nFree.Offset(0, 1)
                    nFree.Value = cell.Value
                    Set f = .FindNext(f)
                Loop While Not f Is Nothing And f.Address <> fStart
            End If
        End With
    Next
End Sub