Ordenar números positivos a la izquierda

[Miguel63]

Buenas tardes,

Estoy intentando ordenar números positivos a la izquierda y no lo consigo,

Me podéis ayudar por favor.

Muchas gracias

Saludos

Numeros.xlsx

[JSDJSD]

[JSDJSD]

Private Sub CommandButton1_Click()
    Dim celda As Range
    For Each celda In Range("E1:E" & Cells(Rows.Count, "E").End(xlUp).Row)
        If IsNumeric(celda.Value) And celda.Value > 0 Then
            celda.HorizontalAlignment = xlLeft
        End If
    Next celda
End Sub

 

Numeros.xlsm

[Miguel63]

Muchas gracias,  solucionado.

Un saludo.