The code below will write a CSV file and will not output anything for a blank
line

Sub WriteCSV()

Const MyPath = "C:\temp\"
Const WriteFileName = "text.csv"

Const Delimiter = ","

Const ForReading = 1, ForWriting = 2, ForAppending = 3

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   
Set fswrite = CreateObject("Scripting.FileSystemObject")

  '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
     OutputLine = Trim(OutputLine)
     If Len(OutputLine) <> 0 Then
        tswrite.writeline OutputLine
     End If
  Next RowCount
     
  tswrite.Close
 
End Sub