Если заказчик сказал и его не удаётся переубедить, то нужно делать. Для того, чтобы знать, сколько пробелов нужно ставить, нужно знать ширину одного пробела для данного кегля. Следовательно, если шрифт во всём столбце одинаковый, то нужно найти там пробел, измерить его ширину, разделить величину отступа на ширину пробела, убрать отступ, а перед текстом вставить полученное при делении число пробелов. Желательно при этом, чтобы выравнивание было по краям или по центру, а не по ширине.
В качестве затравки предложу такую процедуру:
Sub test()
Dim oCell As Cell 'Ячейка
Dim oRng As Range 'Диапазон ячейки
Dim n As Long 'Положение пробела в ячейке
Dim SpaceWidth As Single 'Ширина пробела
Dim SpaceCount As Integer 'необходимое количество пробелов
Set oCell = Selection.Cells(1)
Set oRng = oCell.Range
n = oRng.MoveStartUntil(" ", wdForward)
If n <> 0 Then 'Если пробел в строке есть
With oRng.Characters.First
SpaceWidth = .Next.Information(wdHorizontalPositionRelativeToTextBoundary) - _
.Information(wdHorizontalPositionRelativeToTextBoundary)
End With
With oCell.Range
'Вычисляем необходимое количество пробелов
SpaceCount = CLng(.ParagraphFormat.FirstLineIndent / SpaceWidth)
'Убираем отступ
.ParagraphFormat.FirstLineIndent = 0
'Вставляем пробелы вместо отступа
.InsertBefore Space(SpaceCount)
End With
End If
End Sub
Лучше день потерять — потом за пять минут долететь!