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
.