VBA til excel - slet række hvis 2 tal værdier er identiske

Hej

Jeg har en lille vba opave til jer nørder.

jeg har et excel ark hvor kolonne A har nogle værdier der optræder 2 gange eller flere. Jeg vil gerene have excel til at finde gentagene værdier i kolonne A og så slette de rækker som alle har samme værdi i kolonne A. Så der kun er en af de identiske tal tilbage

Eksempel nedenfor
    A  B  C 
1  22  1  11
2  22  21  44 
3  33  4  65
4  45  32  165
5  44  34  1
6  22  23  654

Som det ses er række 1,2,6 identiske i kolonne A. hvordan laver jeg en VBA der identificere at 1,2,6 og dernæst sletter 2 af rækkerne, hvilke 2 er ligemeget. Der skal bare være en række tilbage hvor der i kolonne A står 22. således at mit output bliver:
Eksempel nedenfor
    A  B  C 
1  22  1  11   
2  33  4  65
3  45  32  165
4  44  34  1

Håber en kan hjælpe