如何从VBA中的剪贴板中删除空白/空单元格？

Question

我现在正在开展一个项目并且正在添加最后的润色。简而言之，我让用户复制一个工作表，单击我的宏按钮，让我的程序完成其余的工作。我遇到了一个错误，选择要复制到剪贴板的整个工作表（空白单元格和全部单元格）导致＆＃34; activesheet.paste＆＃34;给出错误。为了解决这个问题，我一直在选择只填充数据的单元格，我的问题就消失了。 但是，我试图尽可能地使用户友好，为了做到这一点，我试图让用户复制整个电子表格并让我的宏在再次粘贴之前消除空单元格。我不太确定这是否可行，但我非常感谢能得到的任何帮助。谢谢！

部分给我带来麻烦：

Range("A4").Select
On Error Resume Next
ActiveSheet.Paste
If Err Then
    MsgBox "Clipboard is empty, restart macro.": Err.Clear this line
    End
End If