Sub Merge()
intspot = 2
For V1 = 2 To 1000
intRepeated = 0
For V2 = 2 To 140000
If Sheets("AB1matches").Cells(V1, 15) = Sheets("AB1matches").Cells(V2, 1) Then
intRepeated = 1
Exit For
End If
Next V2
If intRepeated = 0 Then
Sheets("Sheet3").Cells(intspot, 1) = Sheets("AB1matches").Cells(V1, 1)
Sheets("Sheet3").Cells(intspot, 2) = Sheets("AB1matches").Cells(V1, 2)
Sheets("Sheet3").Cells(intspot, 3) = Sheets("AB1matches").Cells(V1, 3)
Sheets("Sheet3").Cells(intspot, 4) = Sheets("AB1matches").Cells(V1, 4)
Sheets("Sheet3").Cells(intspot, 5) = Sheets("AB1matches").Cells(V1, 5)
Sheets("Sheet3").Cells(intspot, 6) = Sheets("AB1matches").Cells(V1, 6)
Sheets("Sheet3").Cells(intspot, 7) = Sheets("AB1matches").Cells(V1, 7)
Sheets("Sheet3").Cells(intspot, 8) = Sheets("AB1matches").Cells(V1, 8)
Sheets("Sheet3").Cells(intspot, 9) = Sheets("AB1matches").Cells(V1, 9)
Sheets("Sheet3").Cells(intspot, 10) = Sheets("AB1matches").Cells(V1, 10)
Sheets("Sheet3").Cells(intspot, 11) = Sheets("AB1matches").Cells(V1, 11)
Sheets("Sheet3").Cells(intspot, 12) = Sheets("AB1matches").Cells(V1, 12)
Sheets("Sheet3").Cells(intspot, 13) = Sheets("AB1matches").Cells(V1, 13)
Sheets("Sheet3").Cells(intspot, 14) = Sheets("AB1matches").Cells(V1, 14)
Sheets("Sheet3").Cells(intspot, 15) = Sheets("Sheet2").Cells(V1, 1)
Sheets("Sheet3").Cells(intspot, 16) = Sheets("Sheet2").Cells(V1, 2)
Sheets("Sheet3").Cells(intspot, 17) = Sheets("Sheet2").Cells(V1, 3)
Sheets("Sheet3").Cells(intspot, 18) = Sheets("Sheet2").Cells(V1, 4)
Sheets("Sheet3").Cells(intspot, 19) = Sheets("Sheet2").Cells(V1, 5)
Sheets("Sheet3").Cells(intspot, 20) = Sheets("Sheet2").Cells(V1, 6)
Sheets("Sheet3").Cells(intspot, 21) = Sheets("Sheet2").Cells(V1, 7)
intspot = intspot + 1
End If
Next V1
End Sub
Thanks
Bookmarks