Hacer funcionar Macro en Excel 2010

Hace algún tiempo recibí esta macro la cual funcionó perfectamente, ahora la quiero hacer funcionar en Excel 2010, pero, no funciona, no hace nada, sería posible indicarme que modificaciones se deben hacer para su puesta en funcionamiento.
Lo que hacía era: "Ordenar la información hacia el lado izquierdo" ocupando todas las celdas en blanco. Mi solicitud es "Como debe estar escrita, o que le sobra o falta a esta macro para que funcione todas las veces que la necesite"
Gracias por tu ayuda.
Function QuitarEspacios(CeldaInicial As String, CeldaFinal As String)
CeldaInicialColumna = Mid(CeldaInicial, 1, 1)
CeldaInicialFila = Val(Mid(CeldaInicial, 2))
CeldaFinalColumna = Mid(CeldaFinal, 1, 1)
CeldaFinalFila = Val(Mid(CeldaFinal, 2))
For Fila = CeldaInicialFila To CeldaFinalFila
    For Columna = Asc(CeldaInicialColumna) To Asc(CeldaFinalColumna) - 1
        For ColumnaSiguiente = Columna + 1 To Asc(CeldaFinalColumna)
             Celda = Trim(Chr(Columna)) + Trim(Str(Fila))
             If Range(Celda).Value = "" Then
                CeldaSiguiente = Trim(Chr(ColumnaSiguiente)) + Trim(Str(Fila))
                CeldaSiguiente2 = Trim(Chr(ColumnaSiguiente + 1)) + Trim(Str(Fila))
                Range(Celda).Value = Range(CeldaSiguiente).Value
                Range(CeldaSiguiente).Value = ""
                Celda = CeldaSiguiente
             End If
        Next
    Next
Next
End Function
'
'
Sub llamar_macro()
   If QuitarEspacios("E3", "CT520") Then
   End If
End Sub