Fix lastDataRow calculation

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