VBA makro knap til flytning af celler

Range("A10:A11").Cut Destination:=Range("A9:A10")

Flytter A10 og A11 op til A9 og A10, står der noget i A9 overskrives dette.

Fedt tak :) Men hvad så hvis den ikke må overskrive felt A9.
Alle datoerne skal rykke en tand op så den kommer til at se sådan her ud

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.? :)