Here's a short section of my code.
With comp
.Range("A1").PasteSpecial xlPasteValues
.Rows("1:3").Delete
.Columns("B:B").Delete
.Columns("A:B").RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
LR2 = comp.Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:B" & LR2).Copy
End...