Как нужно преобразовать макрос чтобы лишний раз не писать тысяча If Then Else для яйчеек A B G H?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Range("F3").Value = "01" Then
    Selection.AutoFilter Field:=1, Criteria1:="01"
ElseIf ActiveSheet.Range("F3").Value = "02" Then
    Selection.AutoFilter Field:=1, Criteria1:="02"
.....................................
..............................................
............................................
ElseIf ActiveSheet.Range("F3").Value = "100" Then
    Selection.AutoFilter Field:=1, Criteria1:="100"
End If
End Sub

Selection.AutoFilter Field:=1, Criteria1:=ActiveSheet.Range("F3").Value

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Range("F3").Value Then
    Selection.AutoFilter Field:=1, Criteria1:=ActiveSheet.Range("F3").Value
ElseIf ActiveSheet.Range("F3").Value = 1 Then
    Selection.AutoFilter Field:=0
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$F$3" Then
If Range("F3").Value = "1" Then Selection.AutoFilter Field:=1 _
Else Selection.AutoFilter Field:=1, Criteria1:=Range("F3").Value
End If
 
If Target.Address = "$F$4" Then
If Range("F4").Value = "1" Then Selection.AutoFilter Field:=2 _
Else Selection.AutoFilter Field:=2, Criteria1:=Range("F4").Value
End If
 
If Target.Address = "$F$5" Then
If Range("F5").Value = "1" Then Selection.AutoFilter Field:=7 _
Else Selection.AutoFilter Field:=7, Criteria1:=Range("F5").Value
End If
 
If Target.Address = "$F$6" Then
If Range("F6").Value = "1" Then Selection.AutoFilter Field:=8 _
Else Selection.AutoFilter Field:=8, Criteria1:=Range("F6").Value
End If
 
End Sub