Tom,

Thanks for the help. I don't think I gave you enough information. The
spread sheet contains blank lines. I was hoping the macro would seek out the
last date updated in column A and add a line after that. Sorry for the
confustion. See below for a condensed example of what the spread sheet looks
like

Well A

Company Name

Various Info
Various Info

May-05 1234 1234 Formula 1234
June-05 1234 1234 Formula 1234
July-05 1234 1234 Formula 1234


"Tom Ogilvy" wrote:

Sub ABC()
Dim rng As Range
Set rng = Rows(Cells(Rows.Count, 1).End(xlUp)(2).Row)
rng.FillDown
On Error Resume Next
rng.SpecialCells(xlConstants).ClearContents
On Error GoTo 0
End Sub

--
Regards,
Tom Ogilvy




"John" wrote in message
...
I have a large spread containing historical information that i update
monthly. I am trying to write a macro that will go to the last month
updated
and insert a row beneath it copying the formulas from above. The date is
in
column A. Any suggestoins?