update Generic Master bas5

src/thisWorkbook/Master_Z1_222.bas

@@ -1,4 +1,10 @@
 ' ====== (222) =======
+
+' ====== Constants ======
+Const START_COL As Long = 3
+Const END_COL As Long = 9
+
+' ====== Function ======
 Sub Z1_ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long)
     Call Generic_Master_ClearRowData(ws, rowNum)
 End Sub
@@ -8,15 +14,14 @@ Sub Z1_Import()
 End Sub
 
 Sub Z1_Export()
-    Dim lastDataRow As Long: lastDataRow = GetLastDataRow(Me, 3)
+    Dim lastDataRow As Long: lastDataRow = GetLastDataRowInRange(Me, START_COL, END_COL)
     
     If lastDataRow < 7 Then
         MsgBox "No data rows to output.", vbExclamation
         Exit Sub
     End If
     
-    Dim r As Long
-    Dim errorCount As Long
+    Dim r As Long, errorCount As Long
     For r = 7 To lastDataRow
         Validate r
         If Trim(Cells(r, 2).Value & "") <> "" Then
@@ -33,14 +38,12 @@ Sub Z1_Export()
 End Sub
 
 Sub Validate(ByVal rowNum As Long)
-    Dim cValue As String
     Set ws = Me
-
-    cValue = Trim(ws.Cells(rowNum, 3).Value)
+    Dim cValue As String: cValue = Trim(ws.Cells(rowNum, 3).Value)
 
     ' clear C~I columns background color
     Dim clearRange As Range
-    Set clearRange = ws.Range(ws.Cells(rowNum, 3), ws.Cells(rowNum, 9))
+    Set clearRange = ws.Range(ws.Cells(rowNum, START_COL), ws.Cells(rowNum, END_COL))
     clearRange.Interior.Color = vbWhite
     
     If cValue = "" Then
@@ -135,19 +138,16 @@ Sub Validate(ByVal rowNum As Long)
 End Sub
 
 Sub Z1_validateButton()
-    Dim lastRow As Long
-    Dim r As Long
-    Dim errorCount As Long
+    Dim lastDataRow As Long, r As Long, errorCount As Long
+    lastDataRow = GetLastDataRowInRange(Me, START_COL, END_COL)
     
-    lastRow = GetLastDataRow(Me, 3)
-    
-    If lastRow < 7 Then
+    If lastDataRow < 7 Then
         MsgBox "No data found.", vbExclamation
         Exit Sub
     End If
     
     errorCount = 0
-    For r = 7 To lastRow
+    For r = 7 To lastDataRow
         Validate r
         If Trim(Cells(r, 2).Value) <> "" Then
             errorCount = errorCount + 1
@@ -166,5 +166,5 @@ Sub Z1_ToggleAutoFilter()
 End Sub
 
 Sub Z1_AutoFitColumnWidth()
-    Call AutoFitColumnWidth(2, 9)
+    Call AutoFitColumnWidth(2, END_COL)
 End Sub