Macro to delete duplicate cell without sorting

Looking for a macro to satisfy the below my requirement.

Example Data:

ColumnA	ColumnB	ColumnC
Jane	500	Female
Jane	200	Female
Mike	500	Male
Mike	200	Male

Expected Data:

ColumnA	ColumnB	ColumnC
Jane	500	Female
	200
Mike	500	Male
	200

Hi there!

Assuming you are running it on Data sorted by ColumnA, the code would be :

Please Login or Register  to view this content.

However, if the data is not sorted, it won't really make much sense to remove duplicates.

Thanks,
Vikas B

Thanks Vikas for quick reply, hoever I am getting "Run-time error '1004'". When i debug it is higlighting the below code. I am still new to macro, your help would be appreciated.

Please Login or Register  to view this content.

Hi,

Your workbook may be in compatibility mode which may not have 100000 rows. So use this :

Please Login or Register  to view this content.

Thanks, that was easy one . Now I am able to get the result what I wanted in ColumnA but my data range is A:BQ, do I have to modify for each column and run the macro or is there anything which can run at one shot?

Regards,
Chito