removing old data

Hi

I am trying to remove 10 rows from a sheet starting with row A4 down on
every sheet to allow for headers.

Replace them with dates in blank rows at the bottom of the sheet and follow
patterns down of formulas, conditional formatting and dates as if you select
the copy drag down to continue a pattern down the sheet with a mouse.

eg. (remove 3 and add three to column A)
Row 1
Row 2
Row 3
01/01/05
02/01/05
03/01/05
04/01/05
05/01/05
06/01/05

would change to when the code is run to column A lookig like this -
Row 1
Row 2
Row 3
04/01/05
05/01/05
06/01/05
07/01/05
08/01/05
09/01/05

This would be a start but I dont know how to do this or the conditional
formatting either can anyone help?

Thanks

Rob

Robert: this should do it.

Sub UpDate()
ActiveSheet.Rows("4:6").Delete
Range("A5:A6").AutoFill Destination:=Range("A5:A9")
End Sub

Mike F
"Robert Hargreaves" <[email protected]> wrote in message
news:[email protected]...
> Hi
>
> I am trying to remove 10 rows from a sheet starting with row A4 down on
> every sheet to allow for headers.
>
> Replace them with dates in blank rows at the bottom of the sheet and
> follow patterns down of formulas, conditional formatting and dates as if
> you select the copy drag down to continue a pattern down the sheet with a
> mouse.
>
> eg. (remove 3 and add three to column A)
> Row 1
> Row 2
> Row 3
> 01/01/05
> 02/01/05
> 03/01/05
> 04/01/05
> 05/01/05
> 06/01/05
>
> would change to when the code is run to column A lookig like this -
> Row 1
> Row 2
> Row 3
> 04/01/05
> 05/01/05
> 06/01/05
> 07/01/05
> 08/01/05
> 09/01/05
>
> This would be a start but I dont know how to do this or the conditional
> formatting either can anyone help?
>
> Thanks
>
> Rob
>
>