Exceltabelle mit anderen 2 tabellen vergleichen

Sub CompareAndAppend()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, rngSearch As Range, dic As Object
    Set dic = CreateObject("Scripting.Dictionary")  
    Set ws1 = Sheets(1)
    Set ws2 = Sheets(2)
    Set ws3 = Sheets(3)
    For Each cell In ws1.Range("A1", ws1.Range("A1").End(xlToRight))  
        strVal = LCase(Trim(cell.Value))
        If Not dic.Exists(strVal) Then
            dic.Add strVal, ""  
        End If
    Next
    With ws2
        For Each cell In .Range("E1", .Range("E1").End(xlDown))  
            strVal = LCase(Trim(cell.Value))
            If Not dic.Exists(strVal) Then
                dic.Add strVal, ""  
                ws1.Range("A1").End(xlToRight).Offset(0, 1).Value = Trim(cell.Value)  
            End If
        Next
    End With
    With ws3
        For Each cell In .Range("G1", .Range("G1").End(xlDown))  
            strVal = LCase(Trim(cell.Value))
            If Not dic.Exists(strVal) Then
                dic.Add cell.Value, ""  
                ws1.Range("A1").End(xlToRight).Offset(0, 1).Value = Trim(cell.Value)  
            End If
        Next
    End With
End Sub