Excel VBA記録したマクロの実行方法は（初心者向け解説２）

Sub Macro1()
    Range("A1").Select              'セルを選択
    ActiveCell.FormulaR1C1 = "ID"   'セルに入力
    Range("B1").Select              'セルを選択
    ActiveCell.FormulaR1C1 = "名称" 'セル漢字入力
    ActiveCell.Characters(1, 2).PhoneticCharacters = "メイショウ"
    Selection.End(xlUp).Select  'ショートカットで上へ移動
End Sub

Sub Macro2()
'
' Macro2 Macro
'

'
    Sheets.Add After:=ActiveSheet   '新規シート作成
    Sheets("Sheet1").Select 'Sheet1選択
    Range("A1:E11").Select  '範囲選択
    Selection.Copy          '選択範囲をコピー
    Sheets("Sheet9").Select '新規シートを選択
    ActiveSheet.Paste       'コピーしたデータを貼り付け
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet1").Select
    Selection.End(xlUp).Select
    Range("A1:E1").Select
    '選択した範囲から最下部まで選択（ショートカット）
    Range(Selection, Selection.End(xlDown)).Select
    '前に操作した(セルのコピー、または切り取り)を無効にしている
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet10").Select
    '選択したセルに値貼付け
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    '複数シート選択
    Sheets(Array("Sheet1", "Sheet9", "Sheet10")).Select
    Sheets("Sheet10").Activate
    Application.CutCopyMode = False
    '選択した複数シートをまとめてコピー
    Sheets(Array("Sheet1", "Sheet9", "Sheet10")).Copy Before:=Sheets(4)
End Sub

Sub Macro3()
'
' Macro3 Macro
' マクロの説明を記録実行前に記入しておくとここにコメントが入ります

'
    'オートフィルタテスト
    Selection.AutoFilter    'オートフィルタを設定
    'AからE列の2番目のフィールド=B列で「a」を抽出
    ActiveSheet.Range("$A$1:$E$11").AutoFilter Field:=2, Criteria1:=Array("aaa" _
        , "aab", "aad", "abc", "cba"), Operator:=xlFilterValues
    '1番目のフィールド=A列で「1」を抽出
    ActiveSheet.Range("$A$1:$E$11").AutoFilter Field:=1, Criteria1:="1"
    Selection.AutoFilter    'オートフィルタを解除
    'ここからソートテスト
    'B列で昇順ソート
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B2:B11") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    'B列で降順ソート
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B2:B11") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    'A列を昇順。B列を降順でソート
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("A2:A11") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B2:B11") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub Macro4()
'
' Macro4 Macro
'

'
    '印刷を実行
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("A1:E1").Select 'フォントにセルに色を付ける
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Font     'フォントの色を元に戻す
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.Interior 'セルの背景色設定
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Interior 'セルの背景色を元に戻す
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    'ここから罫線の設定
    '右下がり斜め線なし
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    '右あがり斜め線なし
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)  '左辺の設定
        .LineStyle = xlContinuous       '直線
        .ColorIndex = 0                 '黒色
        .TintAndShade = 0               '影無
        .Weight = xlThin                '細線
    End With
'罫線の設定は膨大になるので以下省略します
    With Selection.Borders(xlEdgeTop)   '上部
    With Selection.Borders(xlEdgeBottom) '下辺
    With Selection.Borders(xlEdgeRight) '右辺
    With Selection.Borders(xlInsideVertical) '内側の垂直線
    With Selection.Borders(xlInsideHorizontal) '内側の水平線
　　・
　　・
　　'罫線なしにする場合　LineStyle = xlNone　に設定する
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

　　'ここでボタンを押そうとしましたが押せませんでした
End Sub

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("B3").Select              'B3セルにセルを挿入
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Delete Shift:=xlUp    '挿入したセルを削除
    Rows("5:5").Select              '5行目を選択して挿入
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Delete Shift:=xlUp    '挿入した行を削除
    Columns("B:B").Select           'B列を選択して列を挿入
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Delete Shift:=xlToLeft '挿入した列を削除
    Range("C1").Select
    Selection.Copy      'C1セルを選択してコピー
    Range("B5").Select  'B5セルを選択
    Selection.Insert Shift:=xlDown 'コピーしたセルを挿入（下にシフト）
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("5:5").Select  '5番目の行を選択
    Selection.Copy      '選択した行をコピー
    Rows("6:6").Select  '6番目の行を選択
    Selection.Insert Shift:=xlDown 'コピーした行を挿入
    Rows("5:5").Select  '5番目の行を選択
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp '選択した行を削除
    Columns("B:B").Select   'B列を選択
    Selection.Copy          '選択列をコピー
    Columns("C:C").Select   'C列選択
    Selection.Insert Shift:=xlToRight 'コピーした列を挿入
    Columns("B:B").Select   'B列を選択
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft '選択した列を削除
End Sub