caetano simone filho

Tenho duas combobox em uma planilha, de marca e modelo de veículos, no entanto, preciso a cada consulta buscar o valor do veículo de acordo com sua utilização, para calcular a depreciação. O código que utilizei nas duas combobox foi: Private Sub Cbxmarcas_Change() Dim rng As Excel.Range Me.Cbxmodelos.Clear For Each rng In Sheets("Fipe").Range("b2:b996") If rng.Value = Me.Cbxmarcas.Text Then Me.Cbxmodelos.AddItem (rng.Offset(0, 1).Value) End If Next rng Me.Cbxmodelos.ListIndex = 0 End Sub A Tabela: A B C D E F G H I Cod_Fipe Marca Modelo Zero 2021 2020 2019 2018 2017 060008-3 Agrale MARRUA AM 200 2.8 CD TDI Diesel 418560 332405 320326 258765 211551 162573 Alguém poderia me ajudar a completar o código