Excel - Macro excel rellenar con espacio a la derecha

Sub mimacro()

    'seleccionar columna completa de fecha'

        Range("A:A").Select

    'Editar formato de Fecha'

        Selection.NumberFormat = "ddmmyyyy"

    'Sleccionar columna completa de numeros de comprobantes de Comprobante'

        Range("D:D").Select

    'Rellenar con ceros a la izquierda columna completa de numeros de comprobantes'

        Selection.NumberFormat = "00000000000000000000"

    'Seleccionar columna completa de  Nombres'

        Range("E:E").Select

    'Rellenar con espacios a la derecha columna completa de Nombres'

        Selection.NumberFormat = "                                                            "

    'Seleccionar Columna completa de Monto'

        Range("G:G").Select

    'Rellenar con ceros a la izquierda columna completa de Monto'

        Selection.NumberFormat = "0000000000000000"

    'Seleccionar Columna completa de Importe'

        Range("H:H").Select

    'Rellenar con ceros a la izquierda columna completa de Importe'

        Selection.NumberFormat = "0000000000000000"

End Sub

Option Explicit

Sub ula_ula()

Dim s$, c As Range, rng As Range

Application.ScreenUpdating = False

Application.EnableEvents = False

Set rng = Range("E1:E" & Range("E" & Cells.Rows.Count).End(xlUp).Row)

For Each c In rng

    s = c.Value

    c.NumberFormat = "@"

    c.Value = s & VBA.String(60 - VBA.Len(s), " ")

Next

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub