How To Check All The Rows And Add To The End

I have a problem with my Excel Sheet, i am trying to write a macro that it checks the ids under the id column

Example:

ID | Ast Code | Ast 1 | Ast 2 | Ast 3
----------------------------------------
Id1 | Ast 1 | 1 | empty | empty
Id1 | Ast 2 |empty | 1 | empty
Id2 | Ast 3 |empty |empty | 1
Id3 | Ast 3 |empty |empty | 1
Id3 | Ast 1 | 1 |empty |empty

Than it must check for the duplicates ids what Ast Code they have, than at the result it must write from the previous one or from the after one take the Ast Code and write it near it..

For Example:

ID | Ast Code | Ast 1 | Ast 2 | Ast 3
----------------------------------------
Id1 | Ast 1 | 1 | 1 | empty
Id1 | Ast 2 | 1 | 1 | empty
Id2 | Ast 3 |empty | empty | 1
Id3 | Ast 3 | 1 |empty | 1
Id3 | Ast 1 | 1 |empty | 1