VBA Request: Clear contents of sheet down to last row but only specific cells

[The Gent]

Hi guys,

Need some help with VBA with regards to clearing a data set.

I want to clear data down to the last row but keep the formulas I have in the end columns.

Data set to clear would be columns D:BH, rows 5:last populated row.

Currently I have...

Sub Clear_Data()
Application.ScreenUpdating = False

ActiveSheet.Range("D5:BH100000").ClearContents
    Next
Application.ScreenUpdating = True

End Sub

 

[Fluff]

How about

Sub Clear_Data()
Application.ScreenUpdating = False

ActiveSheet.Range("D5:BH" & Rows.Count).ClearContents
Application.ScreenUpdating = True

End Sub

 

[The Gent]

Works a charm

 

[Fluff]

You're welcome & thanks for the feedback.