O código é muito inteligente para o seu próprio bem. Ele usa a propriedade Text, que é exibida em uma célula, para obter uma representação de texto de um valor de células. O problema mencionado em outra resposta é limitado a 1024 caracteres. Você pode alterar o código para usar a propriedade Value, mas isso pode não funcionar em todos os tipos de valor da célula.
Altere esta linha:
Print #FileNum, """" & Selection.Cells(RowCount, ColumnCount).Text & """";
Para:
Print #FileNum, """" & Selection.Cells(RowCount, ColumnCount).Value & """";