Delete certain columns instead of entire row

I have a macro that detects duplicates and deletes the entire row. My question is, is there a way to only delete certain columns in that row?

Dim x  As Long
    Dim LastRow As Long
     
    LastRow = Range("B65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("A2:A" & x), Range("A" & x).Text) > 1 Then
            Range("A" & x).EntireRow.Delete
        End If
    Next x

Range("A2").Select