VBA 見出し行の文字を斜めに斜線の罫線を引く

こんな↓感じで入力したものを下の表の様に作成するマクロを作ってみた～♫

①Sub 見出し行の文字を斜めに斜線の罫線を引く()
②    With Range("a1:c1")
③        .HorizontalAlignment = xlCenter
④        .Orientation = 45
⑤            With .Borders
⑥                .LineStyle = xlDiagonalUp
⑦                .LineStyle = thin
⑧                .LineStyle = xlContinuous
⑨            End With
⑩            .Interior.Color = vbYellow
⑪            .Font.Color = vbBlue
⑫    End With
⑬    Range("b2:b5").HorizontalAlignment = xlCenter
⑭    Range("a2:c5").Borders.LineStyle = xlContinuous
⑮    Range("c2:c5").NumberFormatLocal = "#,###"
⑯End Sub

↓　　構文は以下のような感じで・・・。　↓

① 見出し行の文字を斜めに斜線の罫線を引くというマクロを記述
② セルA1～C1に対して以下の処理をする（Withステートメント開始）
③ 水平方向を中央揃え
④ 文字列の角度を45°にする
⑤ 罫線に対して以下の処理をする（Withステートメント開始）
⑥ 右上に斜線の罫線を引く
⑦ 罫線の太さを「細」に設定
⑧ 斜線の罫線の太さを「細実線」に設定
⑨ 線を引くWithステートメントの終了
⑩ セルの背景色を黄色に設定
⑪ フォントの色を青に設定
⑫ セルA1～C1に対するWithステートメントの終了
⑬ セルB2～B5の文字を中央揃え
⑭ セルA2～C5の範囲に「細実線」を引く
⑮ セルC2～C5のセルの表示形式で”#,###”を設定
⑯ マクロ記述終了