Tom Ogilvy wrote:
> Yes, you should say what you mean. You said rows existing and then showed a
> single column of numbers. Here is an adjustment.
>
> Sub AddRows()
> Dim lastrow As Long, i As Long
> lastrow = Cells(Rows.Count, 1).End(xlUp).Row
> For i = lastrow To 1 Step -1
> Rows(i + 1).Insert
> Rows(i + 1).FillDown
> Next
> End Sub
>

Sorry, Apologize for that,

Yes that last does the trick. I did try tweaking it, wondering if just
changing the

Cells(i + 1, 1).Value = Cells(i, 1).Value
to
Row(i + 1, 1).Value = Row(i, 1).Value

was the answer, but I never would have got it to continue without your
code knowledge. I usually will try to trial and error it till I learn
it but sooner or later I guess I need to get some real VBA training.

Thanks much for all the help, gonna save me hours of work tomorrow

Cheers