Run something like this in Excel...
(You could do this from Access)
Private Sub CommandButton1_Click()
Dim cel As Range
Set cel = ActiveSheet.Range("a2")
Do While Trim(cel.Value) & "" <> ""
cel.Offset(0, 1) = cel.Offset(1, 0)
cel.Offset(0, 2) = cel.Offset(2, 0)...