Macro for deleting all the data from the sheet except the first row

[nupurs250]

Hi

I tried to record a macro for deleting all the data from the sheet except the first row but it does it for a few initial columns and 3 to 4 columns remain just as they are.

So, I want to modify that macro so all the data except the first column gets deleted.

The macro is written as:

Sub Clear_Data()
'
' Clear_Data Macro()
'
'
Range("A2").Select
Range(Selection, Selection.End(x1Down)). Select
Range(Selection, Selection.End(x1Down)). Select
Range(Selection, Selection.End(x1ToRight)). Select
Range(Selection, Selection.End(x1ToRight)). Select
Range(Selection, Selection.End(x1 ToRight), Select
Range(Selection, Selection.End(x1 ToRight)), Select
Range(Selection, Selection.End(x1 ToRight), Select
Range(Selection, Selection.End(x1 ToRight), Select
Selection.ClearContents
End Sub

Please advise.

Regards

[jolivanes]

At one point you say "except the first Row" and later "Except the first Column".

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[nupurs250]

Sorry it is except the first row

[AliGW]

@nupurs250

Administrative Note:

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. 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, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then 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

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)