Mestres Sayagins do VBA Excel ajuda ai

No código abaixo a pesquisa na cbxAGENCIA só consulta pela Coluna C da Planilha. Pergunta: Como faço para fazer a Pesquisa pela Coluna B da Planilha? Alguém pode resolver essa questão por gentileza...

Private Sub cbxAGENCIA_Change()
  If frmLANCAMENTOS.CheckBox1.Value = True Then
    'Call AdicionaItem
    'Exit Sub
'  End If
  If frmLANCAMENTOS.cbxAGENCIA.Value = "" Then Exit Sub
  ' verifica a combobox lista meses
  frmLANCAMENTOS.cbxMESES.Value = ""
  ' & Se desmarcada, construído de acordo com a agência lista
  With Me.ListView1
    .ListItems.Clear
    With .ColumnHeaders
      .Clear
      .Add , , "Cod_BD_Visita", 70
      .Add , , "Bairros", 100
      .Add , , "Razao_Social", 175
      .Add , , "Visita_Em", 60
      .Add , , "Endereco", 245
      .Add , , "Telefone", 60
      .Add , , "Contato", 170
      
      
      
    End With
    .FullRowSelect = True
    .Gridlines = True
    .LabelEdit = 1
    .ListItems.Clear
    .View = lvwReport
    With ThisWorkbook.Worksheets("BD")
      .Activate
      vUltimaLinha = .Range("A65535").End(xlUp).Row
      TabelaTemp = .Range(.Cells(1, 2), .Cells(vUltimaLinha, 8)).Value
      .Range("A1").Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
    X = 1
    TotalCol = 0
    For L = 1 To UBound(TabelaTemp, 1)
      If TabelaTemp(L, 2) = Me.cbxAGENCIA.Value Then
        .ListItems.Add , , TabelaTemp(L, 7)
        
        .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 1)
        .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 2)
        .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 3)
        .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 4)
        .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 5)
        .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 6)
        .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 7)
         ' .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 8)
        
        
        ' .ListItems(X).ListSubItems.Add , , TabelaTemp(L, 5)
       ' TotalCol = TotalCol + TabelaTemp(L, 4)
        X = X + 1
      End If
    Next
  End With
'TOTAL
Me.TotListView.Value = TotalCol
  With Me.txtTotal
       Me.txtTotal = ListView1.ListItems.Count - 0
  End With
  End If
End Sub