Dim rng as Range
set rng = Workbooks("Pivots").Worksheets("Sheet1" _
).Cells(rows.count,1).End(xlup)
activesheet.Range("A1").Resize(23,7).copy Destination:=rng

--
Regards,
Tom Ogilvy

"Andrew" wrote in message
om...
I would like to copy the values in a range of cells that are being
referenced from other sheets in that workbook to a different workbook
that will run pivot tables. The macro will need to use the next
available row that isn't used yet. There are 7 Columns and 23 Rows.
Could someone please help me?