Thread
:
Add Row after last entry
View Single Post
#
2
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
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.
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett