Please help me modify the script listed below to add the column names listed
beow to the first row in the test.csv file.  These column names are different
from the input worksheet.

Please help me complete this task.

Thanks,

Column Names
1. Caller_Id
2. MT_Port
3. Noy_Number
4. Scheduled_Date_ETP
5. Tship
6. Parcel_Quantity

Sub WriteCSV()

Const Delimiter = ","
Const MyPath = "C:\temp\"
   
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 = 10 To LastRow
     If Range("D" & RowCount) > Date Then
        For ColCount = 1 To 6
           If ColCount = 1 Then
              OutputLine = Cells(RowCount, ColCount)
           Else
              OutputLine = OutputLine & Delimiter & Cells(RowCount, ColCount)
           End If
        Next ColCount
        tswrite.writeline OutputLine
     End If
  Next RowCount
     
  tswrite.Close
 
End Sub