I've used this macro in the past to delete all rows where the data in column A is duplicated.

Unfortunately on my latest project, I can't use it because there are 90,000+ values. The macro runs to slow to be of any use.

The code is below. Does anyone know of a way to make this run faster?


Sub Copy_Delete()

Application.ScreenUpdating = False

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

Columns("E:E").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Application.ScreenUpdating = True
   
End Sub

I also delete all the rows where there is no value in column E, but that's of no importance here.



Thanks in advance guys...