Makro verbessern

Mittels einem Makro lösche ich verschiedene
Bereiche. Mit "i" gebe ich die Zeile an.
Ich muss in den Zeilen 4-24, 29-30, 36-38 die
Inhalte der Zellen der Spalten B - O löschen.
Nun bestimme ich die Zeilen mit:
For i = 4 To 24
For i = 29 To 30
For i = 36 To 38
(Siehe Makro)

Kann ich die Bereiche irgendwie auch zusammen nehmen?
Bin gespannt auf die Ideen der Excel-Götter...

Sub löschen ()

For i = 4 To 24
Range(Cells(i, 2), Cells(i, 15)).Select
Selection.ClearContents
next i

For i = 29 To 30
Range(Cells(i, 2), Cells(i, 15)).Select
Selection.ClearContents
next i

For i = 36 To 38
Range(Cells(i, 2), Cells(i, 15)).Select
Selection.ClearContents
next i
End Sub