update

src/module/Common_Functions.bas

@@ -7,9 +7,6 @@ Option Explicit
 '   - GetLastDataRowInRange
 '   - ClearDataRows
 '   - ClearDataRow
-'   - SortDataRows
-'   - ToggleAutoFilter
-'   - AutoFitColumnWidth
 ' ============================================================
 
 ' Common Functions
@@ -247,48 +244,13 @@ Sub ClearDataRows(ByVal ws As Worksheet)
         clearRange.ClearContents
         clearRange.Interior.Color = vbWhite
 
-        Dim clearErrorRange As Range
-        Set clearErrorRange = ws.Range(ws.Cells(startRow, ws.Range(errorCol & "1").Column), ws.Cells(lastDataRow, ws.Range(errorCol & "1").Column))
-        clearErrorRange.ClearContents
-        clearErrorRange.Interior.Color = vbWhite
-    End If
-End Sub
-
-Sub SortDataRows(Optional ByVal sortColumn As Long = 3)
-    Dim ws As Worksheet
-    Dim lastRow As Long
-    Dim startRow As Long
-    Dim sortOrder As Long
-    
-    Set ws = ActiveSheet
-    startRow = 7
-    lastRow = GetLastDataRow(ws, sortColumn)
-    
-    If lastRow < startRow Then
-        MsgBox "No data to sort.", vbExclamation
-        Exit Sub
-    End If
-    
-    ' Determine sort order based on first row's current state
-    Dim currentFirst As String
-    Dim nextFirst As String
-    currentFirst = Trim(ws.Cells(startRow, sortColumn).Value)
-    nextFirst = Trim(ws.Cells(startRow + 1, sortColumn).Value)
-    
-    If currentFirst <> "" And nextFirst <> "" Then
-        If currentFirst > nextFirst Then
-            sortOrder = xlAscending
-        Else
-            sortOrder = xlDescending
+        If errorCol <> "" Then
+          Dim clearErrorRange As Range
+          Set clearErrorRange = ws.Range(ws.Cells(startRow, ws.Range(errorCol & "1").Column), ws.Cells(lastDataRow, ws.Range(errorCol & "1").Column))
+          clearErrorRange.ClearContents
+          clearErrorRange.Interior.Color = vbWhite
         End If
-    Else
-        sortOrder = xlAscending
     End If
-    
-    ws.Range(ws.Cells(startRow, 1), ws.Cells(lastRow, 20)).Sort _
-        Key1:=ws.Cells(startRow, sortColumn), _
-        Order1:=sortOrder, _
-        Header:=xlNo
 End Sub
 
 ' Format: code:value (no space around colon)