Hello keen2xl,

Much easier way would be to ClearContents of the whole range.i.e.:

In a Standard Module;

Sub CleanoutRws()
ActiveSheet.Columns("A:i").ClearContents
End Sub