エクセルマクロで結合セルに格子線を引く方法

エクセルマクロで結合されたセルに格子線を引く方法を教えていただけますでしょうか？
例えば
A11.B11.C11. D11.E11.F11→項目名
A12とA13→セル結合有り
B12とB13→セル結合無し、B列セル結合無し
C12とC13→セル結合有り
D12とD13→セル結合有り
E13、E15→1行ずつ置き斜線、E列セル結合無し
F12とF13→セル結合無し、F列セル結合無し
最終行のAセルからEセルまでセル結合有り
最終行のFセルは F列12からの集計になる
データ量による最終行が変わります。

こういう結合セルがある場合の格子線の引き方を教えていただけますか？

質問者からの補足コメント

• めぐみん様
  よろしくお願いします。
  補足本文は数回に分けて送りいたします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2020/11/10 10:05

• Sheets("データ").Select
  MaxRow = Range("E13").End(xlDown).Row + 1
  With Range("E13:E" & MaxRow) On Error Resume Next
  .SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalUp).Weight = xlThin
  End With
  .SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalUp).Weight = xlThin
  End With

    補足日時：2020/11/10 10:14

• Sheets("データ").Select
  MaxRow = Range("A11").End(xlDown).Row
  With Range("A11:A" & MaxRow)
  .Borders(xlInsideVertical).LineStyle = xlContinuous
  .Borders(xlInsideHorizontal).LineStyle = xlContinuous
  .Borders(xlEdgeTop).LineStyle = xlContinuous
  .Borders(xlEdgeLeft).LineStyle = xlContinuous
  .Borders(xlEdgeBottom).LineStyle = xlContinuous
  .Borders(xlEdgeRight).LineStyle = xlContinuous
  End With

    補足日時：2020/11/10 10:16

No.2 回答者： めぐみん_ 回答日時： 2020/11/09 08:50

＞最終行のFセルは F列12からの集計になる

これが何を意味しているのかは分かりませんけど、Ａ１１～Ａｎ（Ａ列の最終行）を求めて横にResizeしてセル範囲を決めれば宜しいのでは？

まずはＡ列のセル範囲を求める方法を探求する。

No.1 回答者： ママチャリ 回答日時： 2020/11/09 00:06

まずは、マクロの記録をやってみましょう！後は最終行を変動させれば出来上がりです。

最終行の指定の仕方が分かんなかったら、また質問してください。その時はＶＢＡのコードやシートの画像なんかもアップしてくださいね！