From 6c07b145b20fa9f5236951b928afa96d37a57ad2 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 14:45:32 +0900
Subject: [PATCH] Fix lastDataRow calculation

---
 vba_code_kukan_detail_master.txt | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index c39fc75..2515a33 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -368,8 +368,15 @@ Sub ExportMasterDetailData()
     Dim ws As Worksheet
     Set ws = ActiveSheet
     
+    ' Find actual last row with data
     Dim lastDataRow As Long
-    lastDataRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
+    Dim r As Long
+    lastDataRow = 6
+    For r = 7 To 10000
+        If Trim(ws.Cells(r, 3).Value) <> "" Then
+            lastDataRow = r
+        End If
+    Next r
     
     If lastDataRow < 7 Then
         MsgBox "No data rows to output.", vbExclamation