概要

セルの枠線に合わせて矩形を描画します.
前回の「できそうなこと」の検証です.
コード

' セルの枠線に合わせて図形(矩形)を描画する
Sub DrawRectanglesOnCells()

    '矩形の個数
    Const RectanglesCount = 3

    ' 矩形の位置を計算する基本単位(BasicUnit).
    Dim BasicUnitX
    BasicUnitX = Cells(1, 2).Width
    
    Dim BasicUnitY
    BasicUnitY = Cells(1, 1).RowHeight

    ' 矩形を描画する初期位置(Offset)
    Dim OffsetX
    OffsetX = BasicUnitX * 1
    
    Dim OffsetY
    OffsetY = BasicUnitY * 3
    
    ' 矩形間に入れる空白行
    Dim BlankLineSizeY
    BlankLineSizeY = BasicUnitY * 2
    
    ' 矩形のサイズ
    Dim RectangleWidthX
    RectangleWidthX = BasicUnitX * 2
    
    Dim RectangleHeightY
    RectangleHeightY = BasicUnitY * 3
    
    '''''
    ' 矩形をループで描画する
    Dim i, Left, Top
    
    ' 初期位置
    Left = OffsetX
    Top = OffsetY
    
    For i = 1 To RectanglesCount
        ' 矩形を描画
        Call ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left, Top, RectangleWidthX, RectangleHeightY)
        
        ' 次のTopを計算
        Top = Top + RectangleHeightY + BlankLineSizeY
    Next
End Sub