如何从 Excel 中的 ActiveX InputBox 获取输入到我的 VBA 代码中？

我正在尝试在 Excel 中制作一个用户数据输入表，以便它可以从另一个工作表中过滤掉数据库，但是，我不知道如何使用我从该输入表中获得的数据以供使用和保存我的 VBA 代码。

这是我的数据输入表：

我想要做的是替换此代码中的弹出式输入框并替换数据输入表中的输入。这是之前的代码：

Sub InputFilter()

    Dim strInput As String
    Dim strInput1 As String
    Dim strInput2 As String

        ActiveSheet.AutoFilterMode = False
        strInput = InputBox("Enter your value to filter WPP")
        'Selection.AutoFilter
        ActiveSheet.Range("$A$4:$BL$351").AutoFilter Field:=8, Criteria1:=strInput 'User Input for desired WPP

        strInput1 = InputBox("Enter your Product Category")
        'Selection.AutoFilter
        ActiveSheet.Range("$A$4:$BL$351").AutoFilter Field:=6, Criteria1:=strInput1 'User Input for Product Category

....

并把它变成这样的，但它一直抛出438错误并且条目表中的数据不想替换strInput

Sub test()

ActiveSheet.AutoFilterMode = False
ActiveWorkbook.Worksheets("Raw Data Domestic").strInput = ActiveSheet("Sheet").txtWPP.Value
ActiveSheet("Raw Data Domestic").Range("$A$4:$BL$351").AutoFilter Field:=8, Criteria1:=strInput


End Sub