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