VBA simplify code replace

Sub ReplacePackages()
    Dim i As String
    Dim k As String
    Dim j As String
    Dim l As String
    Dim b As String
    Dim a As String
    Dim c As String
    Dim d As String
    Dim e As String
    Dim f As String
    Dim m As String
    Dim n As String
    Dim o As String
    Dim p As String
    Dim q As String
    Dim r As String
    
    a = "Customer Packaging"
    b = "Box"
    c = "Fedex Letter"
    d = "Letter"
    j = "Fedex Tube"
    l = "Box"
    e = "Fedex Pak"
    f = "Pak"
    i = "Fedex Box"
    k = "Box"
    r = "FedEx Large Box"
    m = "FedEx Small Box"
    n = "Fedex 25kg Box"
    o = "FedEx Medium Box"
    p = "Fedex 10kg Box"
    q = "Fedex 25kg Box"
    
    Application.ScreenUpdating = False
    
    Columns("BB").Replace what:=c, Replacement:=d, LookAt:=xlPart, MatchCase:=False
    Columns("BB").Replace what:=e, Replacement:=f, LookAt:=xlPart, MatchCase:=False
    Range("BB2:BB20000").Select
    Range("BB2:BB20000").AutoFilter Field:=53, Criteria1:= _
        "<>*" & d & "*", Operator:=xlAnd, Criteria2:="<>*" & f & "*"
    Selection.FormulaR1C1 = l
    Range("BB1:BB20000").AutoFilter Field:=53
    
    Application.ScreenUpdating = True
End Sub

Select allOpen in new window

Option Explicit

Sub ReplacePackages()
'if "Fedex Letter" replace with  "Letter"
' if "Fedex Pak" replace with  "Pak"
' if anything else replace with "Box"
    Dim iX As Integer
    Dim sCrit As String, sReplace


    sCrit = Choose(iX, "Fedex Letter", "Fedex Pak")
    sReplace = Choose(iX, "Letter", "Pak")

    With ActiveSheet
        If Not .AutoFilterMode Then .Range("BB1").AutoFilter

        For iX = 1 To 3
            .Range("BB1").AutoFilter Field:=53, Criteria1:=sCrit
            On Error Resume Next
            .Range(.Cells(1, 53), .Cells(.Rows.Count, _
                                         53).End(xlUp)).SpecialCells(xlCellTypeVisible).Value = sReplace
            On Error GoTo 0
        Next iX

        .Range("BB1").AutoFilter Field:=1, Criteria1:="<>Letter", _
                                 Operator:=xlAnd, Criteria2:="<>Pak"
        .Range(.Cells(1, 53), .Cells(.Rows.Count, _
                                     53).End(xlUp)).SpecialCells(xlCellTypeVisible).Value = "Box"
        .Range("BB1").AutoFilter
    End With

End Sub

Select allOpen in new window