Check box and date picker code to add dynamically

Hi - I'm devising an order processing system, so far user selects data on Quote form, generates quote which also generates Order button. If customer confirms order user clicks on Order button which generates confirmation pdf and draft email, all good. As part of this process I'd like an OrderProcessing workbook to be updated with a specific set of checkboxes and date picker cells to enable progress tracking of each order. The attached spreadsheet contains a basic example of what's required. I've tried a few bits of vba code which I can get to create check boxes but I need full control over each one. If the user clicks on place order it should be possible to open the OrderProcessing sheet and add values to each cell per row for that order. Where the cell in the attached says Auto fill this will be taken from the Order sheet for Order Ref, Component type and Description. All other check box and date picker cells will be the same. What will happen continuously after that is the user will update each check box to signify progress of the order over time. If anyone can explain how to just create a bunch of dynamic check boxes and date pickers with variable names and captions I should be able to deal with the autofill values. Hope I'm making sense - please shout if not. Thanks

Terrible idea
Post a cutdown workbook of how you import order data into processing form.
There has to be a simpler way merely using VBA/UserForm and use your sheet just as a pseudo database.
torachan.

I've got this working as I want it to, the code below finds the first empty row and adds six check boxes from column D to I. To keep track of orders I want to link each cell. The code below works when I use .LinkedCell = "D" & rownum + i + 5 but I'd like to set it via cell number so I can set the link cell to the same row but in columns AD to AI (or similar) so I can report on progress. I've tried using Cells and Ranges but not working, please assist. Thanks
#rowout = wks1.Range("A1", wks1.Range("A1").End(xlDown)).Rows.Count
rownum = rowout + 1
colnum = 4

Set ShtRng = Range(Cells(rownum, colnum), Cells(rownum, colnum + 5))
Set WrkSht = Application.ActiveSheet
For Each Rng In ShtRng
If i = 1 Then
caption = "Cut/made"
ElseIf i = 2 Then
caption = "Tubes"
ElseIf i = 3 Then
caption = "Square"
ElseIf i = 4 Then
caption = "Feet,rods,other"
ElseIf i = 5 Then
caption = "Supports"
ElseIf i = 6 Then
caption = "Arms"
End If

With WrkSht.CheckBoxes.Add(Left:=Rng.Left, Top:=Rng.Top, Width:=Rng.Width, Height:=Rng.Height).Select
With Selection
.Characters.Text = Rng.Value
.caption = ""
.caption = caption
.LinkedCell = "D" & rownum + i + 5 'this works
'.LinkedCell = Cells(rownum + i + 10, 4) 'Range("$D$" & rownum + i + 5) 'Range(Cells(rownum, colnum + i + 10))
i = i + 1
End With
End With
Next
wks1.Cells(rownum, 1).Value = "Auto fill"