Summary Sheet

Good Day,

I have to build a summary sheet with multiple columns, one with sheet name, the value from each sheet in B35, & B36. My workbook has 465 sheets with another 40 or so to add. I used this macro to build a list, which gave me each sheet name but for the life of me I can't figure out how to and the columns I need for the summary of values.

Private Sub ListSheets()
'list of sheet names starting at A1
Dim Rng As Range
Dim i As Integer
Worksheets.Add
Set Rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
Rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub

Thanks for any help out here, oh and by the way I didn't write the one above and just started working with macros so I'm still kind of clueless. Todd