Из того, что я понял, вы хотите, чтобы была отмечена последняя кнопка опции во всех группах. Тогда я думаю, что вам не нужно «явно» писать цикл для всех групповых блоков, а просто цикл для кнопок настроек и устанавливать значение 1.
Dim Option_Button As OptionButton
For Each Option_Button In Worksheets("Sheet1").OptionButtons
Option_Button.Value = 1
Next Option_Button
Не уверен, что это лучший подход, но я надеюсь, что это поможет.