Exporting Data To CSV VBScript

I'm having some trouble with a little VBScript I have put together to export data into a CSV file.

The VBScript goes through each individual Row in excel and basically exports it to a CSV file in the format I need.

Code:

Dim JobHeader As JobHeader
Dim JobDetails As JobDetails
Dim FileNameStr As String
Dim RowStart As Integer
Dim MsgResponse As Integer
Option Explicit

[Code]....

CloseFile:

Close #1
End Sub
Sub ProcessJobs()
JobDetails.JDShipName = Cells(RowStart, 3).Value 'Col 3
JobDetails.JDStreet = Cells(RowStart, 5).Value 'Col 5
JobDetails.JDBlock = Cells(RowStart, 6).Value 'Col 6

[Code]...

This is working perfectly however there can be multiple lines of different product for the same Order Number and I need to consolidate this into one single line where the JDItemDescription, JDQuantity and JDWeight are updated with the combined data.

I have attached a copy of the Spreadsheet so hopefully you can understand what I am after. [URL]...