Delete Cell Data within Row

I am looking for a macro that will select the row that is active and will delete the data (not the column) in columns c-g and enter "It worked" as text in column h of that row. Thank you!