Clear Contents of 2nd Column to Last Column of Data

[bs0d]

What's the most efficient code to clear the contents of all row data from the 2nd column through the last column?

This is what I use to clear everything:

With Sheet("Sheet1").Cells
        .ClearContents
End With

But how can I do the same and exclude the first column?

 

[JackDanIce]

Try:

With Sheets("Sheet1")
   .Range("B1", .cells(rows.count, columns.count)).ClearContents
End With

 

[Rick Rothstein]

What's the most efficient code to clear the contents of all row data from the 2nd column through the last column?

This is what I use to clear everything:

With Sheet("Sheet1").Cells
        .ClearContents
End With

But how can I do the same and exclude the first column?

Try it this way...

Sheets("Sheet1").Columns("B").Resize(, Columns.Count - 1).ClearContents

 

[bs0d]

I suspect Rick's solution would be most efficient being a single line of code? Although but both use .ClearContents to erase the data. I appreciate the feedback, thanks