Me da un error el Visual Basic, error 1004 en tiempo de ejecución.

Tengo este código que lo único que quiero es que me copie datos a la hoja excel. Cuando lo ejecuto me sale error 1004 en tiempo de ejecución, error definido por la aplicación y el objeto. ¿Qué tengo mal?

Public Fecha As Date
Public Medido As String
Public Rate As Single
Public C1 As Single
Public C2 As Single
Public C3 As Single
Public C4 As Single
Public C5 As Single
Public C6 As Single
Public C7 As Single
Public C8 As Single
Public Escribir As Single

Sub cab()

'Tomamos los datos en el formulario
' Muestra el formulario

UserForm1.Show

If Escribir = 1 Then

'Abre la hoja de Uniformidad Extrínseca
'Encuentra la primera fila sin datos

Sheets("cab1").Select

Dim i As Single
i = Range("B12").End(xlDown).Row
i = i + 1

Cells(i, 2) = Fecha
Cells(i, 3) = Medido
Cells(i, 4) = Rate
Cells(i, 5) = C1
Cells(i, 6) =C2
Cells(i, 7) = C3
Cells(i, 8) =C4
Cells(i, 9) = C5

Cells(i, 9) = C6

Cells(i, 11) = C7
Cells(i, 12) = C8

Range("B" & i).Activate

End If

End Sub