Delete rows for specific range

Hi

This has probably already been asked before, but I would like to know how to delete rows if duplicates occur within Column A

I'm editing the post, but basically remains the same query.

I would like to delete rows if Cell A recognizes a duplicate (and delete the duplicate underneath it), however, if Column J has the word "FUTURE" in it, then it should be left all alone. In all other instances the duplicates should be deleted

How does one go about this? The current code I'm using deletes any instances of duplicates in column A

Sub RemoveDupe()
    Dim rCell As Range
    Dim rRange As Range
    Dim lCount As Long
     
    Set rRange = Range("A1", Range("A" & Rows.Count).End(xlUp))
    lCount = rRange.Rows.Count
     
    For lCount = lCount To 1 Step -1
        With rRange.Cells(lCount, 1)
            If WorksheetFunction.CountIf(rRange, .Value) > 1 Then
                .EntireRow.Delete
            End If
        End With
    Next lCount
End Sub

All help is appreciated

Regards

Edited post above