Comparision of Excel data

Sub test()
Dim r As Range, r1 As Range, unq1 As Range, cunq1 As Range, x As String
Dim filt As Range, c As Range, y
With Worksheets("sheet3")
.Cells.Clear
End With
With Worksheets("sheet2")
Range(.Range("a2"), .Range("a2").End(xlToRight).End(xlDown)).Copy
With Worksheets("sheet1")

.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial

Set unq1 = .Range("a1").End(xlDown).Offset(5, 0)
Set r = .Range("a1").CurrentRegion
r.Sort key1:=.Range("a1"), header:=xlYes
Set r1 = Range(.Range("a1"), .Range("A1").End(xlDown))
r1.AdvancedFilter xlFilterCopy, , unq1, True
Set unq1 = Range(unq1.Offset(1, 0), unq1.End(xlDown))
For Each cunq1 In unq1
x = cunq1.Value

r.AutoFilter field:=1, Criteria1:=x
Set filt = r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(12)
y = filt.Areas(1).Cells(1, 2)
'MsgBox y
For Each c In Range(.Range("B3"), .Range("B3").End(xlDown)).SpecialCells(12)
If c = y Then GoTo nextcunq1

filt.Copy
With Worksheets("sheet3")
.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial
End With
GoTo nextcunq1
Next c
nextcunq1:
.AutoFilterMode = False

Next cunq1
End With
End With
Worksheets("sheet1").Cells.Clear
Worksheets("sheet4").Cells.Copy Worksheets("sheet1").Range("a1")
End Sub