Removing Duplicate Rows based on 2 columns

I'm running the macro twice on the same dataset, the first time I see duplicates, always 2 rows for the same "Yes" user if they were filtered due to the Yes/No condition in column G, then when I re-run it for a 2nd time those duplicates are removed to display the list perfectly as it should be.

I can't attach the whole file due to the sensitive information I'm afraid - sorry

Susie


EDIT

What I mean is I have to run the macro twice one after another on the same dataset to see the final result as it should be.

Just as a heads-up.

lastrow = Range("A1").End(xlDown).Row

will only work correctly if there are no empty spaces or rows in Column A. Its generally better to use:

lastrow = Range("A" & Rows.Count).End(xlUp).Row

Since it goes to the last cell in Row A and moves up to the last non-empty row.

Hope this helps.

abousetta