diff --git a/vba_code_kotsu_master.bas b/vba_code_kotsu_master.bas
index 39f8182..644d86c 100644
--- a/vba_code_kotsu_master.bas
+++ b/vba_code_kotsu_master.bas
@@ -70,14 +70,17 @@ Sub Z1_ExportMasterDetailData()
     savePath = GetSaveCSVPath()
     If savePath = "" Then Exit Sub
     
-    ' Build data rows (no header)
+    ' Build data rows (no header) - CSV 1-7 = C-I
     rowCount = 0
     For r = 7 To lastDataRow
         If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then
             rowCount = rowCount + 1
-            csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value)
-            For j = 9 To 18
-                csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value)
+            For j = 3 To 9
+                If j = 3 Then
+                    csvContent = csvContent & CleanCSVField(ws.Cells(r, j).Value)
+                Else
+                    csvContent = csvContent & "," & CleanCSVField(ws.Cells(r, j).Value)
+                End If
             Next j
             csvContent = csvContent & vbLf
         End If