Removing duplicates

... me! Here is something that works quite nicely for me. There may be a neater way but hey it works!

Dim N 'number of rows
Dim i 'row number of lookup
Dim j 'row number of search
Dim x 'number of destinct
Dim y 'duplicate toggle

x = 1
N = 1

'count the number of non blank rows
While Sheets("sheet1").Cells(N, 1).Value <> ""
N = N + 1
Wend

'search for duplicates
For i = 1 To N
strLkup = Sheets("sheet1").Cells(i, 1).Value
y = 0 'set to 0 for no duplicate found
For j = 1 To i
strSrch = Sheets("sheet1").Cells(j, 2).Value
If strLkup = strSrch Then
y = 1 'duplicates found
Else
End If
Next

'log the destinct values
If y = 0 Then
Sheets("sheet1").Cells(x, 2).Value = strLkup
x = x + 1
End If

Next