Retirar Espaço ao Enviar para TXT

Boa tarde! Colegas, tenho o codigo abaixo e gostaria que ao levar os dados para o TXT ele excluísse os espaços que ficam entre uma coluna e outra. E que o intervalo que fosse levado ao TXT fosse da Coluna H4 Ate a S e fosse varrendo tudo o que tem abaixo ate para nao perder nenhum dado.

Sub Exportar_Txt()

Application.DisplayAlerts = False

template_file = ActiveWorkbook.FullName

fileSaveName = anotações & VBA.Strings.Format(Now, “ddmmyyyy”) & “.txt”

Set Rg = ActiveSheet.Range(“H4:S20”)

Dim newBook As Workbook

Dim plan As Worksheet

Set newBook = Workbooks.Add

ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1)

For Each plan In newBook.Sheets

If plan.Name <> ActiveSheet.Name Then

newBook.Worksheets(plan.Index).Delete

End If

Next

newBook.SaveAs Filename:=fileSaveName, FileFormat:=xlTextWindows, CreateBackup:=False

newBook.Close SaveChanges:=True

Set newBook = Nothing

End Sub