СУММ (СУММЕСЛИМН), чтобы найти несколько критериев в одной строке - не работает

Question

У меня есть рабочий лист, на котором я ввел «Тест» в столбец B. Я хочу выполнить a = СУММ (формула СУММЕСЛИМН, чтобы найти «Медведь *» или «Собака *» (* b / c может быть текст после ) в столбце C и сложите их вместе в строке «Тест» + 1. Затем я хочу выполнить ту же формулу для столбцов D, E, G, H, I, J и L

Приведенное ниже, похоже, сработало, но формула была напуганной.

Dim Wb As Workbook
  Dim Ws As Worksheet

For Each Ws In ActiveWorkbook.Worksheets
  With Ws
     If .Index <> 1 Then
    
' find the last used row in Column A + 1
   Dim RngA As Long
      RngA = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
    
'Add "Test" Name in Column B
    .Cells(RngA, "B").Value = "Test"

'Combine Data containing 'Bear*' or 'Dog*'
   Dim RngTest As Range
      Set RngTest = .Range("B:B").Find("Test", LookIn:=xlValues, lookat:=xlWhole)

    RngTest.Offset(0, 1).Formula = "=sum(sumifs(C3:C, B3:B, {""BEAR*"" , ""DOG*""}))"
    RngTest.Offset(0, 2).Formula = "=sum(sumifs(D3:D, B3:B, {""BEAR*"" , ""DOG*""}))"
    RngTest.Offset(0, 3).Formula = "=sum(sumifs(E3:E, B3:B, {""BEAR*"" , ""DOG*""}))"
    RngTest.Offset(0, 5).Formula = "=sum(sumifs(G3:G, B3:B, {""BEAR*"" , ""DOG*""}))"
    RngTest.Offset(0, 6).Formula = "=sum(sumifs(H3:H, B3:B, {""BEAR*"" , ""DOG*""}))"
    RngTest.Offset(0, 7).Formula = "=sum(sumifs(I3:I, B3:B, {""BEAR*"" , ""DOG*""}))"
    RngTest.Offset(0, 8).Formula = "=sum(sumifs(J3:J, B3:B, {""BEAR*"" , ""DOG*""}))"
    RngTest.Offset(0, 10).Formula = "=sum(sumifs(L3:L, B3:B, {""BEAR*"" , ""DOG*""}))"

        End If
    End With
Next Ws