Se VBA script for uma opção, tente isso.
Crie um botão e atribua isso a ele;
Sub Button1_Click()
i = 1
While i < 10
Cells(i, 1).Value = " " + Cells(i, 1).Value
i = i + 1
Wend
End Sub
Lembre-se de que, ao usar o comando Cells , ele referencia as células usando apenas números e é invertido (Linha, Coluna), então a célula A1 seria 1,1 e a célula H5 seria 5,8 .