Cargando una tabla desde un formulario vba

Estimados

Gracias a la ayuda de Dante Amor, pude configurar unos formularios. El me ayudó a configurar uno y yo basándome en su código, lo adapté a otros formularios.

El problema es que en algunos no tuve inconvenientes y por mi desconocimiento en VBA algunos me dan error y no entiendo el problema.

El error siempre es el mismo por lo que creo que no estoy declarando bien la variable, pero por ahí estoy diciendo una pavada.

Ojalá me puedan ayudar y desde ya muchas gracias

Marisa

Adjunto el código:

Private Sub BotonGrabarDatos_Click()
'Por.DAM
Set h1 = Sheets("CuestionarioNeonatal")
'VALIDACIONES
ob = Array(5, 7)
tb = Array(2, 3)
For i = 0 To 1
If Me.Controls("OptionButton" & ob(i)) And Me.Controls("Textbox" & tb(i)) = "" Then
cad = cad & tb(i) & ", "
End If
Next
If cad <> "" Then
MsgBox "Los siguientes textbox deben llenarse: " & cad
Exit Sub
End If
uf = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
'columna de cada option button
co = Array("", "AC", "AC", "AD", "AD", "AE", "AE", "AF", "AF", "AM", "AM", "AP", "AP")
'Pasa el caption del optionbutton a su columna (desde el optionbutton1 hasta el 12)
For i = 1 To 12
If Me.Controls("OptionButton" & i) Then
h1.Cells(uf, co(i)) = Me.Controls("OptionButton" & i).Caption (AQUÍ ME DA EL ERROR)
End If
Next
'columna de cada textbox
tx = Array("A", "B", "N", "V", "AG", "AH", "AK", "AL", "AN", "AO", "AQ")
'Pasa el valor del textbox a su columna (desde el textbox0 hasta el textbox12)
For i = 0 To 12
h1.Cells(uf, tx(i)) = Me.Controls("Textbox" & i)
Next
'columna de cada checkbox
cb = Array("", "AG", "AH", "AI", "AP", "AQ")
'Pasa el valor del checkbox a su columna (desde el checkbox1 hasta el checkbox5)
For i = 1 To 5
If Me.Controls("CheckBox" & i) Then
h1.Cells(uf, cb(i)) = "X"
End If
Next
MsgBox "Los datos se han guardado correctamente", vbInformation, "PLANILLA AUDITORÍA"
Unload Me
End Sub