How to clear data in particular column keeping Header as it is using VBA

Hello,
I wants to clear data which is shown red color.
i tried with below code

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook

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


End Sub

clear.JPG

i am not getting any idea please help me.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Your post does not comply with Rule 7 of our Forum RULES. Please do not ignore requests by Administrators, Moderators and senior forum members regarding forum rules.

If you are unclear about the request or instruction then send a private message to them asking for clarification.

All participants:
Please do not post a reply in a thread where a moderator has requested an action that has not yet been complied with e.g Title change or Code tags...etc. Thanks.