Macro to delete duplicate cell only not entire row if some data is duplicated in colunm

Hi Thanks for your help in advance....
here's what I am trying to do


the data is like that
ID Name Course Session Grade unit
21 Fraser BB 1 7 Math
21 Fraser BB 1 7 accounting
22 Debel BB 1 7 Math
22 Debel BB 1 7 Chemistry

I want

ID Name Course Session Grade unit
21 Fraser BB 1 7 Math
accounting
22 Debel BB 1 7 Math
Chemistry

It means running a macro to delete the duplicated data in the colunm that I will select only but not delete the row ...
a bit lost Thanks for any help

data.xlsxhow it should be.xlsxdata.xlsxhow it should be.xlsxthank you so Much daffodil11 !!!
Ok Can I ask one more favour....
I want to edit the macro as I actually have
From A to I included will be duplicated info name student id.... but
Data in JKLMN will need to stay where they are and not be moved to A underneath... do not know If I am clear

I am uploading the data and how I want it ... it will be better!!!!

I sort of modified the code and it gives me sort of what I want but some students may be enrolled in more than 2 units so more than two rows sometimes 3 sometimes 4 I cannot see where the code can be modified it only works when a student has two units if more than 2 his name comes again as a separate row with all the data... Thank you

Sub Platypi()

Dim c As Range
Dim cRang As Range

Set cRang = Range("A2", Range("A" & Rows.Count).End(xlUp))

For Each c In cRang

If c = c.Offset(-1, 0) Then

If c.Offset(0, 1) = c.Offset(-1, 1) Then

If c.Offset(0, 2) = c.Offset(-1, 2) Then

If c.Offset(0, 3) = c.Offset(-1, 3) Then

If c.Offset(0, 4) = c.Offset(-1, 4) Then


Range(c.Offset(0, 0), c.Offset(0, 8)).ClearContents

End If

End If

End If

End If

End If

Next c

End Sub

A big thank you to whoever can help me as I spent all day trying to modify the vba... and I am dumb as when it come to that

Hi Petitesouris

This below code will do this:
- Loop through all rows (starting at 1)
- Checks if value in col 1 is in a temporary Array
- If False, it will add the value to the Array. If True, it will clear the contents of cols 1 to 9

Please Login or Register  to view this content.

Thank you so much for that Rkey it did work like a charm!!!!! I do not know how to thank you enough....

Hi petitesouris.

Your welcome, good luck with it.
Don't forget to Mark your tread as solved btw, makes it easier to search for it for other users.

Best regards,
Rick