A função VBA TRIM retorna uma sequência de caracteres após remover espaços à esquerda e à direita da sequência.
Trim(texto)
Vamos remover espaços extras do início e do final da linha:
Sub TrimExample1()
MsgBox Trim("test") 'Retorna: "test"
MsgBox Trim(" test") 'Retorna: "test"
MsgBox Trim("test ") 'Retorna: "test"
MsgBox Trim(" test ") 'Retorna: "test"
MsgBox Trim(" test test ") 'Retorna: "test test"
MsgBox Trim(" ") 'Retorna: ""
End Sub
Removendo espaços extras dentro de uma linha:
Sub TrimExample2()
MsgBox WorksheetFunction.TRIM(" test test ") 'Retorna: "test test"
End Sub