try this code.  modify path and file name as necessary

Sub WriteCSV()

Const Delimiter = ","

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const MyPath = "C:\temp\"
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   

Set fswrite = CreateObject("Scripting.FileSystemObject")
   
WriteFileName = "text.csv"

  'open files
  WritePathName = MyPath + WriteFileName
  fswrite.CreateTextFile WritePathName
  Set fwrite = fswrite.GetFile(WritePathName)
  Set tswrite = fwrite.OpenAsTextStream(ForWriting, TristateUseDefault)

  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
 
  For RowCount = 1 To LastRow
     LastCol = Cells(RowCount, Columns.Count).End(xlToLeft).Column
     For ColCount = 1 To LastCol
        If ColCount = 1 Then
           OutputLine = Cells(RowCount, ColCount)
        Else
           OutputLine = OutputLine & Delimiter & Cells(RowCount, ColCount)
        End If
     Next ColCount
     tswrite.writeline OutputLine
  Next RowCount
     
  tswrite.Close
 
Exit Sub
End Sub