alter sub to clear cells within a range

[John Caines]

Hello All.
I very kindly maanaged to get a 'Clear Cells' sub from the board. (Thank you Fluff!)
The sub code is below;

Sub ResetCells()
   With Selection
      .Font.Name = "Ariel"
      .Interior.Color = xlNone
      .Font.Color = vbBlack
      .ClearContents
   End With
End Sub

Is there anyway I can alter this so it only will clear the following ranges,
J4:AN15,J17:AN20,J24:T31

I'm not sure how to alter the above code so as to accomplish this.
Any help here would be great.
Many thanks in advance..
John C

 

[John Caines]

Thanks again Fluff,,

Jesus,, I just had to Google afaik!!!
I think I need a coffee!

Have a great day.

Best regards
John C