Necesito generar un TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas del txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.
Estoy usando el siguiente codigo en VBA y he probado muchos metodos y no logro el objetivo de organizar los puntos decimales.
Sub CreaTXT()
Dim NombreArchivo, RutaArchivo As String
Dim obj As FileSystemObject
Dim tx As Scripting.TextStream
Dim Ht As Worksheet
Dim i, j, nFilas, nColumnas As Integer
NombreArchivo = "DatosCaesar"
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
Set Ht = Worksheets("Datos")
Set obj = New FileSystemObject
Set tx = obj.CreateTextFile(RutaArchivo)
nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
nFilas = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count
For i = 1 To nFilas
For j = 1 To nColumnas
tx.Write Ht.Cells(i + 1, j + 1).Value
If j < nColumnas Then tx.Write vbTab
Next j
tx.WriteLine
Next i
tx.Close
Set obj = Nothing
MsgBox "El txt se ha generado con exito..."
End Sub