list unique digits

HI

The following code will list all unique entries based on data in columns A to E

Sub copynodup()

Dim a As Integer, b As Integer

Let a = 1
Do While Cells(a, 1).Value <> ""

For b = 1 To 5
If Application.CountIf(Range(Cells(a, 7), Cells(a, 11)), Cells(a, b).Value) = 0 Then
Let Cells(a, Application.CountA(Range(Cells(a, 7), Cells(a, 11))) + 7) = Cells(a, b).Value
End If
Next b
Let a = a + 1
Loop

End Sub

Regards

Jeff