Creating A List From Worksheet Data

I'm trying to create a worksheet register. Insofar, with the help of this forum, I have been able to put together a code that creates a list of hyperlinks to all current worksheets

Sheets("Register").Select
Dim wks As Worksheet
Dim rngLinkCell As Range
Dim strSubAddress As String, strDisplayText As String
Worksheets("Register").Range("A3:A600").ClearContents
For Each wks In ActiveWorkbook.Worksheets
Set rngLinkCell = Worksheets("Register").Range("A600").End(xlUp)
If rngLinkCell <> "" Then Set rngLinkCell = rngLinkCell.Offset(1, 0)
strSubAddress = "'" & wks.Name & "'!A1"
strDisplayText = "" & wks.Name
Worksheets("Register").Hyperlinks.Add Anchor:=rngLinkCell, Address:="",
SubAddress:=strSubAddress, TextToDisplay:=strDisplayText
Next wks

In additon to this I would like an addition to the code to pick up data from a cell (G10) within all the worksheets and place it in Coloum B (starting from B3) of the register. And clear the coloum firstly to make way for any updates. I tried doing this myself by modifying a recorded macro but the data would just write to one cell over and over again