Add Row after last entry

[Danielle0904]

I am working in a workbook that has 5 sheets. Each sheet has different data
and calculations based on information in the first sheet.

What I want to do is
1. Find the last row on the first worksheet that has data in it. Copy that
row, and add a new row right below it with the copied information.

2. Go to the next worksheet and do the same thing.

3. Continue that process until all worksheets have a new row added to the
bottom.

 

[Don Guillett]

Is this what you want?

sub copylastrowoneachsheetdownone()
for each ws in worksheets
with ws
lr=.cells(rows.count,"a").end(xlup).row
.rows(lr).copy .rows(lr+1)
end with
next ws

 

[Danielle0904]

Hi Don,
That worked for what I originally asked - but I forgot that there will be
times that the last row will have information - so the formulas will paste as
information and not blank.

How would you re-write the last line to copy the row and the paste special /
formulas?