求助：录制宏，删除制定数据行

truewin

我想删除图中所示几项内容，通过筛选查找关键字“承兑”，删除有承兑字样的所有行，为了便于以后操作，录制了宏，但是宏执行时，实际没能删除上述信息，求解，代码如下：

宏代码如下：
Sub 宏1()
'
' 宏1 宏
'

'
    ActiveSheet.Range("$A$1:$T$3783").AutoFilter Field:=7, Criteria1:=Array( _
        "?对公—银行承兑汇票", "?对公—银行承兑汇票（全额保证金）", "?对公—银行承兑汇票贴现"), Operator:=xlFilterValues
    Rows("114:114").Select
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 306
    ActiveWindow.ScrollRow = 1097
    ActiveWindow.ScrollRow = 1410
    ActiveWindow.ScrollRow = 1996
    ActiveWindow.ScrollRow = 2705
    ActiveWindow.SmallScroll Down:=18
    Rows("114:2901").Select
    ActiveWindow.SmallScroll Down:=7306
    Rows("114:11091").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$T$2409").AutoFilter Field:=7
End Sub