diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index 9fd6105..8a6ac79 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -414,21 +414,12 @@ Sub ExportMasterDetailData()
         csvContent = Left(csvContent, Len(csvContent) - 1)
     Loop
     
-    ' Write header using native VBA (no charset conversion)
-    Dim f As Long
-    f = FreeFile
-    Open savePath For Output As #f
-    Print #f, CSV_HEADER;
-    Close #f
-    
-    ' Append data using ADODB.Stream with shift_jis
+    ' Write file
     Dim stream As Object
     Set stream = CreateObject("ADODB.Stream")
     stream.Type = 2
     stream.Charset = "shift_jis"
     stream.Open
-    stream.LoadFromFile savePath
-    stream.Position = stream.Size
     stream.WriteText csvContent, 1
     stream.SaveToFile savePath, 2
     stream.Close