Extract Hyperlink URLs

sample.vba

Sub getHyperLinkURLs()

    Range(Range("B1"), Range("B1").End(xlDown)).Select
    
    Dim cell As Range
    
    For Each cell In Selection
        cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
        Next
    End
    
End Sub