clearing two ranges of data

[losmi8]

Hi, I am trying to set up a button that will clear two ranges of data.

I would like it to clear A1:E5 and G5:G9. Here is the code I have, which isn't working...

Sub ClearTextFromRange()
Dim range1 As Range, range2 As Range 
Set range1 = Worksheets("Sheet1").Range("A1:E5")
Set range2 = Worksheets("Sheet1").Range("G5:G9")

For Each range1 In Range("range1")
  If Application.WorksheetFunction.IsText(range1) _
    Then range1.ClearContents
 Next
End Sub

Any help would be greatly appreciated.