如何复制和粘贴VBA而不复制和粘贴空行

我有一个macros，几乎正是我需要做的是从一个工作表复制并粘贴到另一个。 这是代码。

ADM.Range("A6", ("A" & Rows.Count)).Copy Destination:=Pricing.Range("A3")

但是，我遇到的问题是它也复制和粘贴空白行，以便我有一个电子表格有超过100万行。 如果我复制并粘贴100行，我希望代码只复制和粘贴这100行，而不是100万加。 这对我来说是一个问题，因为我需要自动填充公式，并且有一百多万行会导致代码失败。

任何帮助将不胜感激。 谢谢

Answer 1

将("A" & Rows.Count)更改为：

 ADM.Range("A" & Rows.Count).End(xlUp) 

所以：

 ADM.Range("A6", ADM.Range("A" & Rows.Count).End(xlUp)).Copy Destination:=Pricing.Range("A3")