Remove Duplicates Without shifting cells VBA

I'm trying to remove duplicates using VBA macro. Columns a,b,c and d on my sheet all have duplicate text that needs to be removed without shifting cells. After searching I was able to find the VBA macro below but I need to select a range every time. I need to streamline it to only be done once. Can someone please help? Thanks

Remove.png

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918
 
    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
 
    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
     
End Sub