Excel VBA-填充到工作表底部

Question

我有一个宏，但是当我运行宏时，它将更新后的值填充到工作表的底部而不是数据集的底部，有没有办法使它仅填充部分？

With ActiveSheet
    .AutoFilterMode = False
    
        With Range("I1", Range("I" & Rows.Count).End(xlDown))
            .AutoFilter Field:=1, Criteria1:="="
            
                On Error Resume Next
                .Resize(.Rows.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Value = "1"
                On Error GoTo 0
        End With
   .AutoFilterMode = False
End With