Предлагаю приписать к тексту 50 пробелов и выровнять по правому краю.
Автоматическая вставка пробелов для модуля листа:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Target = Target & Space(50)
End Sub
Автоматическая вставка пробелов для модуля листа:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Target = Target & Space(50)
End Sub