Sub scrapeHyperlinksWebsite()
'Refrence Require
'Microsot HTML Object Library
'Microsoft Internet control

    'We refer to an active copy of Internet Explorer
    Dim ie As InternetExplorer
    'code to refer to the HTML document returned
    Dim html As HTMLDocument
    Dim ElementCol As Object
    Dim Link As Object
    Dim erow As Long
    Application.ScreenUpdating = False
    'open Internet Explorer and go to website
    Set ie = New InternetExplorer
    ie.Visible = True
    'In this example we have used below weburl, you can change and try
    'ie.Navigate ""
    ie.Navigate "use you website address" '""

    'Wait until IE is done loading page
    Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
        Application.StatusBar = "Trying to go to website…"
    Set html = ie.Document
    'Display text of HTML document returned in a cell
    Range("A1") = html.DocumentElement.innerHTML
    Set ElementCol = html.getElementsByTagName("a")

    For Each Link In ElementCol
        erow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        Cells(erow, 1).Value = Link
        Cells(erow, 2).Value = Link.Text
        Cells(erow, 1).Columns.AutoFit
    'close down IE, reset status bar & turn on screenupdating
    Set ie = Nothing
    Application.StatusBar = ""
    Application.ScreenUpdating = True

End Sub