excel - VBA は不要なフィルターを追加し、不要な行を挿入しますか?

Question

ASSETS CALC ワークブックに、ユーザー フォームから別のワークブック (ASSETS) を選択するための vba コードがあります。このコードは、ASSETS に特定の行を挿入し、データをフィルター処理してそれらを加算し、最終的な数値を ASSETS CALC にコピーします。残念ながら、何らかの理由で、ASSETS ワークブックに挿入された行は ASSETS CALC ワークブックにも挿入され、フィルターが追加されます。これを止める方法を知っている人はいますか？最終的な数値を ASSET CALC にコピーしたいだけです。

ありがとうございました。

    Dim str1 As String
Dim i As Integer

Application.ScreenUpdating = False

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        str1 = ListBox1.List(i)
    End If
Next i

    Workbooks(str1).Activate
    Sheets(1).Activate
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$C$22").AutoFilter Field:=1, Criteria1:="=it*", _
        Operator:=xlAnd
    ActiveSheet.Range("$A$4:$C$22").AutoFilter Field:=2, Criteria1:="cash"
    Range("C28").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-11]C:R[-7]C)"
    Range("C28").Select
    Windows("Asset Calc..xlsm").Activate
    Range("D11").Select
    ActiveCell.FormulaR1C1 = "=[" & str1 & "]Sheet1!R28C3"
    Range("D12").Select