VBA code of batch copy hyperlink address

Sub AddHyperlink()

Application.ScreenUpdating = False

With ActiveSheet

lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

For i = 1 To lastrow

    Cells(i, 2) = Cells(i, 1).Hyperlinks(1).Address

Next i

End With

Application.ScreenUpdating = True

End Sub