Generar archivo de texto desde excel

He intentado hacer una macro que exporte un reporte en archivo texto y a su vez el reporte se genere en el origen del archivo del excel, pero al ejecutarlo los valores del archivo excel en el reporte me arrojan 0.00, aquí dejo el código macro.

Private Sub DATOS_X_Click()
'export activesheet as txt file
Dim myPath As String, myFile As String
myPath = ThisWorkbook.Path & "\"
myFile = "REPORTE-X.txt"
Dim WB As Workbook, newWB As Workbook
Set WB = ThisWorkbook
Application.ScreenUpdating = False
Set newWB = Workbooks.Add
WB.Sheets("BASE").Range("HV6:HW55").Copy newWB.Sheets(1).Range("HV6")
With newWB
Application.DisplayAlerts = False
.SaveAs Filename:=myPath & myFile, FileFormat:=xlText
.Close True
Application.DisplayAlerts = True
End With
WB.Save
Application.ScreenUpdating = True
MsgBox "Se ha Exportado Correctamente!!! ", vbInformation, "TRABAJO"
End Sub