nach Färbung eine Zelle nach unten

Sub Makro2()
'
' Makro2 Makro
' Makro am 23.06.2003

' Tastenkombination: Strg+h
'
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
End Sub

Wie kann ich es jetzt erreichen, dass nach dem einfärben der Zelle, die Zelle darunter activiert wird???

Danke