Como Modificar macro excel vincular casilla

¿Cómo debería modificar el código del macro que originalmente asignaba a las casillas de las columnas de la D a la H vinculo con casilla en las columnas de la I a la M si quiero añadir dos columnas más?

Es decir el vinculo ha de quedar somo sigue:

Casilla D con la K (anteriormente estaba con I)

Casilla E con la L (anteriormente estaba con J)

Y así sucesivamente pero habiendo añadido dos columnas más al grupo de usuarios que tenia originalmente 5 y ahora necesito que sean 7.

El código original era:

Sub CrearCasillas()

'Por.Dante Amor

    Application.ScreenUpdating = False

    ActiveSheet.DrawingObjects.Delete

    '

    For j = Columns("D").Column To Columns("H").Column

        For i = 6 To Range("C" & Rows.Count).End(xlUp).Row

            If Cells(i, "C") <> "" And IsDate(Cells(i, "C")) Then

                dia = Format(Cells(i, "C"), "ddd")

                wsl = Cells(i, j).Left + 25

                wst = Cells(i, j).Top

                wsw = Cells(i, j).Width

                wsh = Cells(i, j).Height

                '

                'c = Cells(3, Columns.Count).End(xlToLeft).Column + 1

                letra = Evaluate("=SUBSTITUTE(ADDRESS(1," & j + 5 & ",4),""1"","""")")

                ActiveSheet.CheckBoxes.Add(wsl, wst, wsw, wsh).Select

                With Selection

                    .Caption = dia

                    .Value = xlOff

                    .LinkedCell = letra & i

                    .Display3DShading = False

                End With

            End If

        Next

    Next

End Sub