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.

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


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Danielle0904" <(E-Mail Removed)> wrote in message
news:AA52129F-C2BA-4763-A131-(E-Mail Removed)...
>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.

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?


"Don Guillett" wrote:

> 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
>
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "Danielle0904" <(E-Mail Removed)> wrote in message
> news:AA52129F-C2BA-4763-A131-(E-Mail Removed)...
> >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.
>
>