How to keep only the top row of a value and delete the rest of the rows

[Pupishi]

Hello,

I am new to VBA and would like to get assistance from the experts if possible.

I have a number of duplicated booking numbers with different data captured in subsequent columns.
In order to identify the duplicated bookings, I have numbered them in column FL (FYI, the number of duplicated bookings will increase each day).
Now I am manually keeping the values in the first record of a number in column FL and deleting the rest manually in columns BP to BX (not rows but the values).
Would there be a VBA that would automate this process?

Any help I could get is greatly appreciated.
Thank you.

 

[Fluff]

How about

Sub Pupishi()
   Dim Cl As Range
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
         If Not .Exists(Cl.Value) Then
            .Add Cl.Value, Nothing
         Else
            Range("BP" & Cl.Row).Resize(, 9).ClearContents
         End If
      Next Cl
   End With
End Sub

 

[Pupishi]

How about

Sub Pupishi()
   Dim Cl As Range
  
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
         If Not .Exists(Cl.Value) Then
            .Add Cl.Value, Nothing
         Else
            Range("BP" & Cl.Row).Resize(, 9).ClearContents
         End If
      Next Cl
   End With
End Sub

Amazing!! It worked perfectly. Thank you so much!

 

[Fluff]

You're welcome & thanks for the feedback.