RE: Copy and Paste LAST ROW of data non-contiguous

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hi Joel,

Thank you very much for reply and assistance.

Dim LRow As Long
Dim sh as work***
for each sh in worksheets(Array("sheet1", "sheet3", "sheet5"))
LRow = sh.Cells(Rows.Count, 1).End(xlUp).Row
with sheets("Sheet2")
.Rows("1:10").Copy Destination:=sh.Rows(LRow + 1)
end with
Next sh
End Sub

The above does not produce the desired result. The sheets will not be
sequentially named and the number of rows on each *** will vary.

Further help appreciated.

Cheers,
Sam

Joel wrote:
Sub test()
Dim LRow As Long

LRow = Cells(Rows.Count, 1).End(xlUp).Row
Rows(LRow).Copy Rows(LRow + 1)
End Sub

I added the following lines to Mike's code but could not get it to goto each
work*** in turn.
Dim sh as work***
for each sh in worksheets(Array("sheet1", "sheet3", "sheet5"))
LRow = sh.Cells(Rows.Count, 1).End(xlUp).Row
with sheets("Sheet2")
.Rows("1:10").Copy Destination:=sh.Rows(LRow + 1)
end with
Next sh

--
Message posted via http://www.officekb.com

.

Quantcast