changing code from using Combobox to optionbuttons

[snb]

You'd better remove all merged cells.
in the userform machine stoppage this will suffice in the initialize event:

Private Sub UserForm_Initialize()
    ComboBox1.List = [transpose(text(today()-3+row(1:5),"dd-mmm-yyyy"))]
    
    sn = Sheets("INFO").Cells(3, 3).CurrentRegion.Offset(2)
    For j = 2 To 6
      Me("combobox" & j).List = Application.Index(sn, 0, j - 1)
    Next
End Sub

NB posting a non protected sample workbook would help the helpers a lot !