Solicito respuesta, a pregunta finalizada con una duda

Hace unos días recibí esta respuesta la cual funcionó perfectamente la primera vez, después la traté de utilizar nuevamente no me funcionó, pero, creo que es por falta de poder asignar un nombre para que funcione como macro, e intentado mirando los inicios de otras macros y nada, mi solicitud es "Como debe estar escrita esta macro para que funcione todas las veces que la necesite"
Gracias
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
'
'
Function llamar_macro()
   If QuitarEspacios("A1", "F7") Then
   End If
End Function
'
'