vba PasteSpecial在同一行

Question

在以下编码的帮助下，我能够将过滤后的数据复制并传递到另一张表，但是它将数据粘贴到第二行而不是最后一行。不确定出了什么问题。

With Sheets("Sheet3")    
    .Autofiler = False  
    .ShowAllData  
    .Range("A1:H28443").AutoFilter Field:=8, Criteria1:="*Assign*", Operator:=xlAnd, Criteria2:="*SPID*"  
    Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells`enter code here`(xlCellTypeVisible).Copy  
End With  

Sheets("DataSheet").Cells(1, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues  



With Sheets("Sheet3")  
    .Autofiler = False  
    .ShowAllData  
    .Range("A1:H28443").AutoFilter Field:=8, Criteria1:="*Timeliness*", Operator:=xlAnd, Criteria2:="*Accuracy*"  
    Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells(xlCellTypeVisible).Copy  
End With  

Sheets("DataSheet").Cells(1, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues