清除某个单元格的内容到文档的末尾

什么是从一个特定的单元格到整个文档的末尾清除数据的代码？
例如，我有D2数据，我想用一个button编写代码来清除D2所有数据，直到文档的最后。 我的想法是，它会像这样开始：

 Range("D2", `<i>whatever the end function is</i>`).Clear 

Answer 1

这里有一个方法：

 Range("D2:D" & Rows.Count).ClearContents 

编辑：

每个注释，要从D2删除到工作簿的末尾（行和列），可以使用这个：

 Range(Range("D2"), Cells(Rows.Count, Columns.Count)).ClearContents