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
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