Data Content & Format Clearing via Vba

[harinsh]

Hello....I need some solution on clearing the data with contents along with format...


assume I have headers in Row 4 and want to clear the data from 5th row on wards every time when I run the macro....can anyone help me...below code I created but not working ..its clearing the header when I don't have data.....thank you


Lastrow = Sheets("Sheet1").Cells(Rows.Count, "Y").End(xlUp).Row
Sheets("Sheet1").Range("B5", "Y" & Lastrow).ClearContents

 

[mikerickson]

The title mentions clearing formatting, but the OP code doesn't address that. Perhaps

Sheets("Sheet1").UsedRange.Offset(4,0).Clear

 

[harinsh]

HI Mike, Its not working ...I need both content and format should get delete....thank you

 

[mikerickson]

If it isn't working, what is it doing?
It should be clearing all of Sheet1 except for rows 1,2,3, and 4.