io espanderei prima di tutto ogni riga in un vettore per riconoscere il numero di elementi con

A=split(VarRigaLetta," ")

così avrai una cella per ogni campo della riga letta,
esempio A(0)=Nome, A(1)=cognome...

poi S sarà la riga da passare al file destinatario

codice:
S=A(0) &  " " & A(1) 'nome e cognome
if ubound(s)=6 then
  'una sola sigla
  s=s & a(2) & vbtab & a(3) & vbtab & a(4) & vbtab & a(5) & vbtab & a(6)
else
  '2 sigle
  s=s & a(2) & " " & a(3) & vbtab & a(4) & vbtab & a(5) & vbtab & a(6) & vbtab & a(7)
endif
o qualcosa di simile. Prova