Private Sub ComboBox2_Change()
Dim RngRow As Range, RngCol As Range, LastCol As Long

    Set sh = Sheet1

    If Me.ComboBox2.Text <> "" Then 'если выбрали Item
        With sh
            Set RngRow = .Columns(3).Find(Me.ComboBox1.Text, , xlFormulas, xlWhole) 'ячейка в столбце С выбранного А
            LastCol = .Cells(RngRow.Row, .Columns.Count).End(xlToLeft).Column 'номер последнего столбца по выбранной строке А
            Set RngCol = .Rows(1).Find(Me.ComboBox2.Text, , xlFormulas, xlWhole) 'ячейка в первой строке выбранного В

            Me.TextBox1.Text = .Cells(RngRow.Row, RngCol.Column).Value 'Qty of items
            Me.TextBox2.Text = .Cells(2, RngCol.Column).Value 'Price of item (из второй строки)
            Me.TextBox3.Text = .Cells(RngRow.Row, LastCol).Value 'Totals
        End With
    End If
End Sub