Clear cells in a sheet

[rowlandrat]

Hi,

I am trying to clear all used cells in a worksheet excluding the top row. It won't always be the same number of rows in use so I need to first find the bottom most row being used and set that as the end of my range. Using VBA, what is the quickest way of doing this?

Thanks

 

[Peter_SSs]

What about something like this?

ActiveSheet.UsedRange.Offset(1).ClearContents

 

[Ruddles]

With ThisWorkbook.Sheets("Sheet1")
  .Range("A2").Resize(.Rows.Count - 1, .Columns.Count).ClearContents
End With