Você pôde ter dois tipos diferentes de linha rupturas.
Tentar isto
O submarino zap ()
ActiveSheet. [A: A]. Substituir Chr (13) & Chr (10), ““
ActiveSheet. [A: A]. Substituir Chr (10), ““
ActiveSheet. [A: A]. Substituir Chr (13), ““
Terminar o submarino