清除除第一行和第一列之外的所有数据

Question

Would like to clear all data except Row 1 and Column A. Am able to clear all except the first row OR first column using something like this:

Rows("2:" & Rows.Count).ClearContents

But would like to know how to keep both in when clearing. (In the worksheet, the first row and column are both "frozen.")

Answer 1

For example, clear B2 to the very last cell:

With ActiveSheet
   .Range("B2", .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With