Rollback to 6a65a45

vba_code_kukan_detail_master.txt

@@ -368,15 +368,8 @@ Sub ExportMasterDetailData()
     Dim ws As Worksheet
     Set ws = ActiveSheet
     
-    ' Find actual last row with data
     Dim lastDataRow As Long
-    Dim r As Long
+    lastDataRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
-    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