How to control of repeating procedures? (delete duplicates rows)

I would like to create a structure for repeated operations by using Do While Loop. The DElDuplicates, which searches for and deletes duplicates rows in a database is a good example to explain the situation. Having sorted the database on a specific 'code' field, the entries in the code column are processed row-by row. If the values of the currentCell and nextCell are the same, the currentCell row is deleted.

I think my problem is caused by the reference objects. I don't know how to name it in my worksheet.

Sub DelDuplicates()
Dim currentCell, nextCell
Range("database").Sort key1:=Range("code") ----------- error here?
Set currentCell = Range("code")
Do While Not IsEmpty(currentCell)
  Set nextCell = currentCell.Offset(1, 0)
  If nextCell.Value = currentCell.Value Then
    currentCell.EntireRow.Delete
  End If
  Set currentCell = nextCell
Loop
End Sub

Capture.PNG

Not sure if this helps

Option Explicit

Sub DelDuplicates()

' Named Ranges:
'   Fixed/static range C1
'       Code: =INDEX('repeating procedure'!$C:$C,1)
'   Dynamic Named Range
'       database: ='repeating procedure'!$A$1:INDEX('repeating procedure'!$C:$C, COUNT('repeating procedure'!$A:$A))

Dim currentCell As Range, nextCell As Range

' sort Range("database") using Range("Code")
' effectively sorting on column C
Range("database").Sort key1:=Range("code")

Set currentCell = Range("code") ' start with cell C1

Do While Not IsEmpty(currentCell)
    Set nextCell = currentCell.Offset(1, 0)
        If nextCell.Value = currentCell.Value Then
            currentCell.EntireRow.Delete
        End If
    Set currentCell = nextCell
Loop

End Sub

You need to create Named Ranges as described at the beginning of the routine otherwise the code does not know what to sort, or on what basis.

See the updated example.

You're welcome. Thanks for the rep.