VBA清零function后，VBA粘贴function抛出错误

我有一个先进的filter，正在用来sorting一个大型的数据集。

filter将过滤的数据放入单独的工作表中。

我有一个VBAmacros，允许我突出显示我想要使用的filter的部分，并将其粘贴到与filter表相邻的范围内。

目前我正在使用非常简单的VBA。 活动select的副本并粘贴到指定单元格之后的下一个打开的行中。 单元格是一行标题，对应于正在进行复制select的表格的标题。

Sub CopyPaste() Selection.Copy ActiveSheet.Range("J6").End(xlDown).Offset(1, 0).Select ActiveSheet.Paste End Sub 

清楚是非常简单的。

 Sub ClearTable() ActiveSheet.Range("J7:O100").Clear End Sub 

清除运行后，我收到一个错误。

获取运行时错误'1004，应用程序定义或对象定义的错误。

编辑：澄清。 .clear和.clearcontents都会导致错误状态如果在清除范围之后尝试粘贴。

Answer 1

使用J7：O100清除后，selectJ6并点击[ctrl] + [向下箭头]。 试着再往下走一排。 这就是你要粘贴的地方，如果你按照我的指示，问题应该是非常明显的。

使用，

 Selection.Copy Destination:=ActiveSheet.Cells(Rows.Count, "J").End(xlUp).Offset(1, 0) 

这看起来从下往上select1行而不是从上到下（这似乎是J1048576，不能下移一排，更不用说有空间的粘贴）。