copy row if ID blank with VBA

Hi I want to make the data in data base below

ID   Name   Card No 
1    A      3
            2 
2    B      1 
3    C      1
            2

to be like

ID   Name   Card No  
1    A      3 
1    A      2  
2    B      1  
3    C      1 
3    C      2

Using excel macros.. please help thanks :D