View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Add Row after last entry

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

"Danielle0904" wrote in message
...
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.