Bob,
this should do it:

Sub FillSheet()
Dim r&, n&
With ActiveSheet
For r = [a65536].End(xlUp).Row To 1 Step -6
.Cells(r, 4 * n + 1).Resize(6 * (n + 1), 4).FillDown
n = n + 1
If Intersect(.Cells(r, 4 * n + 1), .UsedRange) Is Nothing Then
Exit For
End If
Next
End With
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Robert Gillard" wrote:

Problem,

I have a problem with a spreadsheet that comes down the page
in
"steps".(If you had a blank sheet of paper turn it landscape and draw
a line from the bottom left hand corner to the top right hand corner
and just look at the area above the line - that's the shape of the
spreadsheet.)

Each month I have to add a new step to those already there. Each
step is
4 cols wide and 6 rows down, so for example this month I would
highlight cells A100:D105 and then drag down so the new cells are
A106:D111. I now go to the next step which would be from E94:H99
highlight the cells and dragdown to E100:H105.......and so on across
the page.

Can I automate this process if so how.... cause this is a big
spreadsheet.

With thanks

Bob