Ofimática - Quitar blancos que se anteponen a la cadena de car

Por favor si alguien me puede ayudar. Me entregan en Excel una base de datos que se extrajo de un sistema. Para trabajar estos datos en Excel me encuentro con el problema que las celdas con información alfanumérica (por ej nombres, direcciones etc), traen una cantidad “variable” (entre 0 y 3) de espacios en blanco antecediendo al texto lo cual no me permite filtrar ni ordenar debidamente.
Tengo la siguiente macro que me permite separar nombre y apellido cuando están juntos en una columna y dejarlos en columnas separadas:

Sub separa()
x = ActiveCell.Row
y = ActiveCell.Column
'Esto que sigue, toma el nombre y lo lleva 2 cols a la derecha
Do While Cells(x, y).Value <> ""
Cells(x, y + 2).Value = "=MID(RC[-2],1,SEARCH("" "",RC[-2],1)-1)"
'Para tomar el apellido y llevarlo 3 cols a la derecha
Cells(x, y + 3).Value = "=MID(RC[-3],SEARCH("" "",RC[-3],1)+1,20)"
x = x + 1
Loop
End Sub

Quería adaptarla pero veo que contrario a buscar el primer blanco que es lo que hago en esta macro, tengo que buscar el primer caracter “distinto” de blanco para conseguir contar los blancos que se anteponen y así extraerlos, pero no sé como indicarlo en la función search.

Y haz intentado con la funcion espacios()?