Copy row on 2+ w'ksheets and paste to successive rows on new w/sh

[Joe 127305]

Objective is to copy say row 6 on multiple worksheets and paste each copied
row onto a series of successive rows on another worksheet.

I have been able to do this with lotus spreadsheets but cannot find a way to
do it in excel

 

[Gord Dibben]

Sub findbottom_paste()
Dim ws As Worksheet
Dim rng1, rng2 As Range
For Each ws In ActiveWorkbook.Worksheets(Array("Sheet1", "Sheet2", _
"Sheet4", "Sheet5"))
Set rng1 = ws.Rows("6:6")
Set rng2 = Sheets("Summary").Cells(Rows.Count, 1).End(xlUp) _
..Offset(1, 0)
rng1.Copy Destination:=rng2
Next ws
End Sub


Gord Dibben MS Excel MVP

On Sat, 8 Mar 2008 11:08:00 -0800, Joe 127305 <Joe