Mover datos una celda a la izquierda

Saludos estimado experto
Tengo la siguiente macro
Sub Mover_izquierda()
Dim Fila As Integer, Columna As Integer
    Columna = 5
    For Fila = 5 To 150
        If Cells(Fila, Columna).Value <> "" Then
        Cells(Fila, Columna).Offset(0, -1).Value = Cells(Fila, Columna).Value
        'Cells(Fila, Columna).Offset(0, -1).Select
            With Selection
             .HorizontalAlignment = xlLeft
             .IndentLevel = 2
            End With
        Cells(Fila, Columna).Value = ""
         End If
    Next
Range("B4").Select
End Sub
Quisiera que solo me moviera las celdas que tengan texto.
La otra opción que necesito es que solo me mueva las que sean números aunque el formato de celda sea de texto
Por supuesto serian independientes o funcionarían en distinto momento
Gracias