ordenar valores vbb

[Cooltan]

Buenos días, tengo una duda a ver si me pueden ayudar

Tengo un excel con valores y tengo una tabla de mapeos con cierto campos valores S y valores H del tipo:

5 6020000 S
3 032200 H
6 111000 S
3 740000 H
3 500010 S
3 720000 S

hago una llamada desde el programa principal a esta tabla para que me devuelva los valores de esta manera:

SH = Application.WorksheetFunction.VLookup(j, Sheets("Cuentas").Range("A:D"), 3, 0)

y esto se me genera en lineas en un document de texto.

Lo que quiero es que se me generen las lineas ordenadas en plan primero todas las "S" y luego todas las "H" o viceversa.

He pensado en la function .sort pero no se como puedo hacerlo. Alguna sugerencia.