Уважаемые формучане, появилась ошибка 400 при работе макроса. Макрос делит один большой файл с кучей информации на много(14) файлов по необходимым параметрам и сохраняет в указанную папку. Прдеположительно, на втором шаге происходит ошибка. Но вроде все там в порядке. С чем может быть свзяана ошибка? Гугл фактически не дал ответа((

П.С Второй шаг прилагается
Step2:

Set wb3 = Workbooks.Add
For i = 2 To k
Branch(i) = wb1.Sheets(1).Cells(i, 3).Value
Channel(i) = wb1.Sheets(1).Cells(i, 4).Value
wb2.Sheets(1).Activate
wb2.Sheets(1).Range("A1:BR50000" .Select
Selection.AutoFilter Field:=bran_fil, Criteria1:=("*" & Branch(i) & "*"
Selection.AutoFilter Field:=chan_fil, Criteria1:=("*" & Channel(i) & "*"

If i = 2 Then
Range("A1:BR50000" .Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
wb3.Sheets(1).Activate
Range("a1" .Select
Selection.PasteSpecial (-4104)
Selection.AutoFilter
Selection.EntireColumn.AutoFit
ActiveWindow.Zoom = 85
With Range("1:1" .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
Else
Range("A2:BR50000" .Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
wb3.Sheets(1).Activate
For m = 2 To 50000
If Cells(m, 1) = "" Then
f = m
GoTo Step3
End If
Next m