Macro to Delete Duplicate Headings

[howard]

I have the following code to delete rows containing "Unit" from row 2 onwards

Where Unit in Col A is repeated from row 2 onwards, these are not being Deleted


Kindly amend my code

 Sub Delete_DupHeadings ()
    Dim LR As Long, I As Long

    With Sheets("Data Import")
      .Range("A2").AutoFilter 1, "Unit"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      
      .AutoFilterMode = False
   End With
End Sub

 

[kevin9999]

Try the following:

Sub Delete_DupHeadings()
    With Worksheets("Data Import").Range("A2").CurrentRegion
      .AutoFilter 1, "Unit"
      .Offset(1).EntireRow.Delete
      .AutoFilter
   End With
End Sub

 

[howard]

Thanks Kevin


Code is perfect

 

[kevin9999]

Happy to help Howard, and thanks for the feedback