'...
Sub RoundEmUpMoveEmOut_R2()
Dim N As Long
Dim F As Long
Dim L As Long

F = ThisWorkbook.Sheets("First").Index
L = ThisWorkbook.Sheets("Last").Index

For N = F To L
ThisWorkbook.Sheets(N).Range("J2:ZQ2").Copy
With ThisWorkbook.Sheets("Data Pull")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).PasteSpecial xlPasteValues
End With
Next
Application.CutCopyMode = False
End Sub
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html



"Reck"
wrote in message
Jim, I reworked the ranges and it works great...small wrinkle though. Is
there something I can put in there that will "paste values" into the
destination cells? Right now I'm getting the dreaded #REF. Thanks again for
your help.