Works fine Mike.
I just did this too which works 

Sub DelDups()
    Dim rngSrc As Range
    Dim NumRows As Integer
    Dim ThisRow As Integer
    Dim ThatRow As Integer
    Dim J As Integer, K As Integer

    Application.ScreenUpdating = False
     
    NumRows = 38
    ThisRow = 1
    ThatRow = ThisRow + NumRows - 1
    
    'Start wiping out duplicates
    For J = ThisRow To (ThatRow - 1)
        If Cells(J, "A") > "" Then
            For K = (J + 1) To ThatRow
                If Cells(J, "A") = Cells(K, "A") Then
                    Cells(K, "A") = ""
                End If
            Next K
        End If
    Next J

    Application.ScreenUpdating = True
End Sub