VBA makro knap til flytning af celler

Hvis jeg har en række datoer i et excel regneark hvor jeg har listet nogle datoer ned i kolonne A og jeg gerne vil have dem til at rykke en tand op i rækken når jeg trykker på en knap.

Gammel inden tryk på knap   
      A
4  ældre   
5  24.01   
6  25.01   
7  28.01   
8  29.01   
9  30.01   
10 31.01   
11 01.02   
12 04.02

Sådan skulle den gerne se ud efter tryk på knappen

A
4  ældre   
5  25.01   
6  28.01   
7  29.01   
8  30.01   
9  31.01   
10  01.02   
11  04.02   
12  05.02

Og hvis nu felterne har forskellige farver og de skal beholdes og ikke rykkes med videre så det kun er datoerne som er tastet i feltet "flytter plads".

Felt A12 skal altid være dags dato.

Hvordan skal koden lyde så? :)