Sub ddddddddd()
Dim r1 As Range, r2 As Range, dl#, i#
With Sheets("Master1")
Set r1 = .Range("A8:CA" & .Range("A65000").End(xlUp).Row)
End With
With Sheets("Master")
Set r2 = .Range("A10:CA" & .Range("A65000").End(xlUp).Row)
End With
With Sheets("MasterRecap")
.Cells.Clear
r1.Copy .Range("A1")
dl = .Range("A65000").End(xlUp).Row + 1
r2.Copy .Range("A" & dl)
dl = .Range("A65000").End(xlUp).Row
.Range("A2:CA" & dl).Sort Key1:=.Range("A3"), Order1:=xlAscending, Header:=xlGuess
dl = .Range("A65000").End(xlUp).Row - 1
For i = dl To 3 Step -1
If .Cells(i, 1) = .Cells(i + 1, 1) Then .Rows(i + 1).EntireRow.Delete
Next
.Columns.AutoFit
.Rows.AutoFit
End With
End Sub