Excel Macro/VBA Keep row with first instance of ID, delete all other rows

[cynamin82]

Hello All,

I am a newbie on here. I have a report with duplicate ID's in column A, but with different data captured in subsequent columns (data through column BJ). The number of rows may vary and the data starts in row 4. I would like to create a macro that detects duplicate ID's, and if the ID is a duplicate it would keep the first instance from the top to the bottom with that ID and delete the additional rows with duplicates of the ID. I cannot figure out the best way to do this. Any suggestions? Thanks!

 

[mrshl9898]

Are the headers in row 4? If not, change to Header:=xlNo

Sub RemoveDupes()

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ActiveSheet

LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

    sht.Range("$A4:$BJ" & LastRow).RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

 

[cynamin82]

Thank you! This was perfect. I appreciate the help.