copy cell value as an address to create a hyper link

I had trouble wit hthe edit botton, so i will add this here,

this is the newbie code i wanna use

Sub NewTest()
'
' NewTest Macro
'
' Keyboard Shortcut: Ctrl+Shift+W
'
    Sheets("Sheet1").Select
    ActiveCell.Offset(1, -2).Range("A1").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Sheet1").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "the link selected in Sheet 1"
    Sheets("Sheet2").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "the link copied from Sheet 1" _
        , TextToDisplay:="Main Page"
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Sheet1").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "The link selected in Sheet 1"
    Sheets("Sheet2").Select
   ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "the link copied from Sheet 1" _
        , TextToDisplay:="Maps"
    Sheets("Sheet1").Select
    ActiveCell.Offset(1, -2).Range("A1").Select
End Sub

how bad is this, lol