Add ToggleAutoFilter common function

vba_code_common.bas

@@ -168,3 +168,19 @@ Sub SortDataRows(Optional ByVal sortColumn As Long = 3)
         Order1:=sortOrder, _
         Header:=xlNo
 End Sub
+
+Sub ToggleAutoFilter(Optional ByVal filterRow As Long = 6)
+    Dim ws As Worksheet
+    Set ws = ActiveSheet
+    
+    ' Check if auto filter is already on
+    If ws.AutoFilterMode Then
+        ' Turn off auto filter
+        ws.AutoFilterMode = False
+    Else
+        ' Turn on auto filter at row 6
+        If filterRow >= 1 Then
+            ws.Range("A" & filterRow).AutoFilter
+        End If
+    End If
+End Sub