HI
assuming the data you want to pull is in F8 & G8, Paste the following codes in the macro window ( Alt F11)

sub collate()
dim a as integer
sheets.add.name = "Summary"
for a = 2 to sheets.count
cells(a,1) = worksheets(a).name
cells(a,2) = worksheets(a).cells(8,6) 'F8
cells(a,3) = worksheets(a).cells(8,7) 'G8
next a
endsub
Run the macro.
Ravi