Removing Duplicates and Pasting

[Guest]

Hi, the following code is meant to loop through column E - 100 Clients (many
duplicated) and paste each client (without duplicates) to Column B of current
wks

Not quite working but i think im close - help is greatly appreciated, thks

Sub rev()

Dim LastRow As Long
Dim i, j As Long
LastRow = Worksheets("Jobs").Cells(Rows.Count, 5).End(xlUp).Row
j = 3
For i = LastRow - 1 To 1 Step -1
If Worksheets("Jobs").Cells(i + 1, 5).Value <>
Worksheets("Jobs").Cells(i, 5).Value Then
Worksheets("Jobs").Cells(i + 1, 5).Copy Destination:=Cells(j, 2)
j = j + 1
End If
Next

End Sub

 

[Tom Ogilvy]

Sub rev()

Dim LastRow As Long
Dim i, j As Long
LastRow = Worksheets("Jobs").Cells _
(Rows.Count, 5).End(xlUp).Row
j = 3
For i = 1 To LastRow
If Worksheets("Jobs").Cells(i, 5).Value <> _
Worksheets("Jobs").Cells(i + 1, 5).Value Then
Worksheets("Jobs").Cells(i, 5).Copy _
Destination:=Cells(j, 2)
j = j + 1
End If
Next
End Sub

worked fine if Column E on Jobs is sorted.

 

[Guest]

Thank You Tom

Sub rev()

Dim LastRow As Long
Dim i, j As Long
LastRow = Worksheets("Jobs").Cells _
(Rows.Count, 5).End(xlUp).Row
j = 3
For i = 1 To LastRow
If Worksheets("Jobs").Cells(i, 5).Value <> _
Worksheets("Jobs").Cells(i + 1, 5).Value Then
Worksheets("Jobs").Cells(i, 5).Copy _
Destination:=Cells(j, 2)
j = j + 1
End If
Next
End Sub

worked fine if Column E on Jobs is sorted.