Anyone how knows how to convert this? Thanks

Sub ClearSummary()

'This macro clears the summary sheet for recording purposes'

    Sheets("Summary").Select

    Columns("H:IV").Select

    Selection.EntireColumn.Delete

    Sheets("Options").Select

End Sub