Clear contents between two header values

[hoss88]

I Have a workbook with data starting in row 120. I would like a vba code to clear the contents of cells between two columns titled 'TOTAL' and 'Arrears' starting from row 121. The 'TOTAL' column is always on column G but 'Arrears can fall any where from H to AD. Data can run to around 300 rows.I have attached a spreadsheet to illustrate.

Thank you!

p.s.
yesterday I posted a similar problem but I wanted the columns be deleted and ben8563 kindly provided the below solution. I now would like the option of clearing contents instead of deleting columns and I don't know how to change this code.

Sub test()
end_1 = Rows(120).Find("Arrears")(1, 0).Address
Range("H120:" & end_1).EntireColumn.Delete Shift:=xlToLeft
End Sub

[AB33]

Range("H120:" & end_1).EntireColumn.ClearContents

[kvsrinivasamurthy]

Try this code

Please Login or Register  to view this content.

[hoss88]

great thank you woks perfectly