Excel 如何使用VBA复制除标题以外的所有行

到目前为止，除了将一张纸上的行复制到当前页面底部之外，我的代码都可以使用。请参阅下面我的代码：

    Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Sheets("Sheet124").Select 'Will be Sheet3 in deployment
Sheets("Sheet124").Name = "Match Exempt"
Sheets("DataInput").Select
ActiveSheet.ShowAllData
ActiveSheet.Range("A:AT").AutoFilter Field:=17, Criteria1:=Array( _
    "=Accepting")
ActiveSheet.Range("A:AT").AutoFilter Field:=5, Criteria1:="<9999", _
    Operator:=xlAnd
    ActiveSheet.Range("A:AT").AutoFilter Field:=33, Criteria1:="<>Insurance", _
    Operator:=xlAnd
    


  Sheets("Match Exempt").Cells(Rows.Count, "A").End(xlUp).Offset(1). _
    PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False

sheet.Add After:=ActiveSheet
活动表。粘贴
图纸（“Sheet124”）。选择“将是展开中的图纸3
工作表（“Sheet124”）.Name=“匹配豁免”
工作表（“数据输入”）。选择
ActiveSheet.ShowAllData
ActiveSheet.Range（“A:AT”）.AutoFilter字段：=17，Criteria1:=Array（_
“=接受”）
ActiveSheet.Range（“A:AT”）.AutoFilter字段：=5，标准1:=“，如上述注释中所示：

带有表格（“匹配豁免”）。单元格（行数，“A”）。结束（xlUp）。偏移量（1）
.Paste特殊粘贴：=xlPasteValues，操作：=xlNone_
SkipBlanks:=False，转置：=False
.Entirerow.Delete“删除粘贴数据的第一行
以
粘贴后尝试删除带有标题的行。我看不到任何
复制
行，仅粘贴？这是您需要调整的副本（除非您按照Foxfire的建议在粘贴后删除标题）我删除了我原来的复制行，因为它只是cells.copy，并抓取了整个工作表@timWilliams粘贴后我如何删除标题行，因为这将是动态数据，而不是每次我使用它时都在同一行？@christianance-通过勾选gre来接受一个有用的或首选的答案很有用在答案旁边打勾；c.f.；可能你也会修改一些以前的帖子：-）