Aktiver Zellbereich in Makro verarbeiten?

ein einfacher Command Button innerhalb einer Tabelle soll die folgende Aufgabe erfüllen:
Den markierten Bereich (ein oder mehr Zellen) mit Hintergrundfarbe füllen

Angegangen bin ich es so:

Private Sub CommandButton1_Click()
With ActiveCell.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

Markierter Bereich; z.B. D6:D10
Hierbei wird nur jeweils die erste Zelle (D6) des markierten Bereichs geändert.
Wie bekomme ich den ganzen markierten Bereich?

Für Hilfe Danke im voraus,

Gruß
Markus