Private Sub CommandButton2_Click()
    With Sheets("БД")
        .Cells(iRow, 3) = CDbl(Me.TextBox1)
    End With
End Sub

Option Explicit

Dim ShSklad As Worksheet
Dim SkladListObj As ListObject

Dim Sklad As String, Tovar As String, iRow As Long


Sub Finder()
Dim i As Long, LastRow As Long, Flag As Boolean

Set ShSklad = ThisWorkbook.Worksheets("БД")
Set SkladListObj = ShSklad.ListObjects("Таблица1")


    If Sklad = "" Or Tovar = "" Then Exit Sub
    With SkladListObj
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To LastRow
            Debug.Print .Cells(i, 1)
            If .Cells(i, 1) = Sklad Then
                Debug.Print .Cells(i, 2)
                If .Cells(i, 2) = Tovar Then
                    Me.TextBox1 = .Cells(i, 3)
                    iRow = i
                    Flag = True
                    Exit For
                End If
            End If
        Next
    End With
    If Flag = False Then Me.TextBox1 = "Не найдено"
End Sub