markering, indsat i en makro

Hjælp, hjælp

Hej
Jeg vil gerne udvide makroen, med en markering af de 5 rækker før og efter.
Markering skal kommer automatisk, så der må indsættes 1 eller 2 linjer ekstra.



Sub Makro19()
'
' Makro19 Makro
' Makro indspillet 05-09-2005 af Bo Holst Bramming
'
' Genvejstast:Ctrl+m
'
    Selection.Find(What:="motorhylla", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    ActiveCell.Offset(1, 0).EntireRow.Select
    Selection.Insert Shift:=xlDown
End Sub