how to convert this? thanks

how to convert this? thanks

'RECORDING MACROS
Sub CopyToBase()
' CopyToBase Macro
' Macro recorded 7/12/98 by Tirso B. Paris, Jr.
' Keyboard Shortcut: Ctrl+ b

'  Record Simulation Results as Base
    Application.Goto Reference:="SIMRESULTS"
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=5
    Range("Q2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

'  Record Base Value Added (Basis for Value Added Growth)
'    Application.Goto Reference:="BaseSumVal"
'    Selection.Copy
'    Application.Goto Reference:="BaseSum"
'    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
'        False, Transpose:=False
'    Application.CutCopyMode = False
    
'  Record Base Value Added (Basis for Ag. Income Growth)
'    Application.Goto Reference:="BASEAGDPVAL"
'    Selection.Copy
'    Application.Goto Reference:="BASEAGDP"
'    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
'        False, Transpose:=False
'    Application.CutCopyMode = False
    
'  Record Base Value Added (Basis for Ag. Income Growth)
'
Application.Goto Reference:="MIGVALS"
    Selection.Copy
    Application.Goto Reference:="MIGBASE"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    
 ' Record Base Poverty Incidence
   Application.Goto Reference:="POVCALC"
   Selection.Copy
   Application.Goto Reference:="POVCALCBASE"
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False
   Application.CutCopyMode = False
    
 ' Record Lorenz Curve Data
    Application.Goto Reference:="LRDATA"
    Selection.Copy
    Application.Goto Reference:="LRBASE"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Application.Goto Reference:="PCD"
'
    Sheets("Summary").Select
    Range("E5:E999").Select
    Selection.Copy
    Range("D5").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Run "GOTOPOLVARS"
    
    MsgBox "Sucessfully recorded simulated results as base values."
'    Application.Goto Reference:="R1C1"
    End Sub

Sub CopySimResults()
'
' CopySimResults Macro
' Macro recorded 10/15/98 by Tirso B. Paris
'
' Keyboard Shortcut: Ctrl+d
'
    Sheets("Summary").Select
    Range("E5:E999").Select
    Selection.Copy
    Range("H5").Select
    Selection.PasteSpecial Paste:=xlValues
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=RC[1]+1"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Enter Desc here"
        With ActiveCell.Characters(Start:=1, Length:=15).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 8
    End With
    Range("I1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("E5").Select
    
'Sheets("Options").Select
'Run "GOTOPOLVARS"

End Sub