What's the error in this ?


Counter = 0

While Not rs.EOF

Sheets("SummaryByDate").Select
ActiveSheet.Range(Cells(3, 3 + Counter)).CopyFromRecordset rs, 4, 1
ActiveSheet.Range(Cells(9, 3 + Counter)).CopyFromRecordset rs, 1, 1
ActiveSheet.Range(Cells(12, 3 + Counter)).CopyFromRecordset rs, 4, 1

Wend


I'm trying to populate a table with information taht i've queried from an external source ..

is there any way to capture a snapshot of a pivot table and then poplulate the cells accordingly in an excelsheet ?

thank you so much in advanc.e...