Code to auto fill down two rows from active selection.

[richanor]

Hi,

I am using the following code to insert a couple of rows into a worksheet and then select a range above them. I want to be able to auto fill down into these two rows and then change the active cell to the next cell in column A ending with a 5 or a 0.

If the second part is not possible, could anybody help me with the code to auto fill down a couple of rows from the selected range?

Thanks

Rich

Sub InsertRows()
'
' InsertRows Macro
'
' Keyboard Shortcut: Ctrl+Shift+I
'
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveCell.Offset(-3, -Selection.Column + 1).Range("A1:F3").Select

End Sub