Sub подготовительная()
Dim r As Range
Dim rng As Range
Dim book1 As Workbook
Dim str As String
Dim gbr As Range
Set book1 = Workbooks.Open("E:\...\Вопрос.xlsx")
'переходим в активную книгу на 1-ую страницу и выделяем диапозон
book1.Worksheets("7").Activate
Set rng = book1.Worksheets("7").Range("U33:U99")
'находим первую 1
Set r = rng.Find(What:="1")
'запоминаем 1-ый адресс
firstAddress = r.Address
'другая переменная
Set gbr = r.Offset(, -16)
'забираем гиперссылку
str = gbr.Hyperlinks.Item(1).Address
'вставляем в Лист1
book1.Worksheets("Лист1").Cells(1, 1).Value = str
'ищем вторую 1
book1.Worksheets("7").Activate
Set r = r.FindNext(r)
If r.Address <> firstAddress Then
    Set gbr = r.Offset(, -16)
    str = gbr.Hyperlinks.Item(1).Address
    book1.Worksheets("Лист2").Cells(1, 1).Value = str
    Else: Exit Sub
 End If
  'ищем третью 1
  book1.Worksheets("7").Activate
Set r = r.FindNext(r)
If r.Address <> firstAddress Then
    Set gbr = r.Offset(, -16)
    str = gbr.Hyperlinks.Item(1).Address
    book1.Worksheets("Лист3").Cells(1, 1).Value = str
    Else: Exit Sub
 End If
End Sub