From 65ad779d6d218ce0fb1e136e76f82db40fe6a364 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 11:55:11 +0900
Subject: [PATCH] Clear data rows before CSV import

---
 vba_code_kukan_detail_master.txt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index b791d6b..76b6985 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -146,6 +146,12 @@ Sub ImportMasterDetailData()
     
     lines = Split(textContent, vbCrLf)
     
+    ' === Clear all data rows before import ===
+    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "C").End(xlUp).Row
+    If lastRow >= 7 Then
+        wsTarget.Range("A7:P" & lastRow).ClearContents
+    End If
+    
     If UBound(lines) < 1 Then
         MsgBox "No data in CSV.", vbExclamation
         Exit Sub