¿Cómo solucionar: '-2147417848 (80010108)' en tiempo de ejecución: error en el método '_Default' de objeto Range'?

Ayúdenme con el error, que se presenta al cambiar de un Userform a otro y al darle clic en el botón "guardar".

El código que emplee, es el siguiente: 

Private Sub CommandButton1_Click()
Dim uf
With Hoja3

Cuenta = Application.WorksheetFunction.CountIf(Range("a:a"), Me.Nombre)
'
If Cuenta > 0 Then
'
MsgBox "El nombre de la finca: '" & Me.Nombre & "' ya se encuentra registrado", vbExclamation, strTitulo
Else

PREGUNTA = MsgBox("Desea registrar un nuevo análisis de suelos?", vbYesNo + vbQuestion, "Registrar Finca")
If PREGUNTA <> vbNo Then

uf = .Range("CB" & Rows.Count).End(xlUp).Row + 1
cod.Text = uf - 1
.Range("CB" & uf) = uf - 1
.Range("A" & uf) = Nombre.Text
.Range("B" & uf) = TextBox1.Text
.Range("C" & uf) = ComboBox19.Text
.Range("D" & uf) = TextBox3.Text
.Range("E" & uf) = TextBox4.Text
.Range("Q" & uf) = TextBox5.Text
.Range("G" & uf) = departamento.Text
.Range("H" & uf) = municipio.Text
.Range("I" & uf) = ComboBox17.Text
.Range("J" & uf) = TextBox7.Text
.Range("K" & uf) = CE.Text
.Range("L" & uf) = TextBox8.Text
.Range("M" & uf) = pH.Text
.Range("N" & uf) = TextBox9.Text
.Range("O" & uf) = CIC.Text
.Range("P" & uf) = ComboBox20.Text
.Range("F" & uf) = TextBox11.Text

.Range("R" & uf) = ComboBox2.Text
.Range("S" & uf) = ComboBox3.Text
.Range("T" & uf) = ComboBox4.Text
.Range("U" & uf) = ComboBox5.Text
.Range("V" & uf) = ComboBox6.Text
.Range("W" & uf) = ComboBox7.Text
.Range("X" & uf) = ComboBox8.Text
.Range("Y" & uf) = ComboBox9.Text
.Range("Z" & uf) = ComboBox10.Text
.Range("AA" & uf) = ComboBox11.Text
.Range("AB" & uf) = ComboBox12.Text
.Range("AC" & uf) = ComboBox13.Text
.Range("AD" & uf) = ComboBox14.Text
.Range("AE" & uf) = ComboBox15.Text
.Range("AF" & uf) = ComboBox16.Text

.Range("AG" & uf) = TextBox12.Text
.Range("AH" & uf) = TextBox13.Text
.Range("AI" & uf) = TextBox14.Text
.Range("AJ" & uf) = TextBox15.Text
.Range("AK" & uf) = TextBox16.Text
.Range("AL" & uf) = TextBox17.Text
.Range("AM" & uf) = TextBox18.Text
.Range("AN" & uf) = TextBox19.Text
.Range("AO" & uf) = TextBox20.Text
.Range("AP" & uf) = TextBox21.Text
.Range("AQ" & uf) = TextBox22.Text
.Range("AR" & uf) = TextBox23.Text
.Range("AS" & uf) = TextBox24.Text
.Range("AT" & uf) = TextBox25.Text
.Range("AU" & uf) = TextBox26.Text

.Range("AV" & uf) = TextBox27.Text
.Range("AW" & uf) = TextBox28.Text
.Range("AX" & uf) = TextBox29.Text
.Range("AY" & uf) = TextBox30.Text
.Range("AZ" & uf) = TextBox31.Text
.Range("BA" & uf) = TextBox32.Text
.Range("BB" & uf) = TextBox33.Text
.Range("BC" & uf) = TextBox34.Text
.Range("BD" & uf) = TextBox35.Text
.Range("BE" & uf) = TextBox36.Text
.Range("BF" & uf) = TextBox37.Text
.Range("BG" & uf) = TextBox38.Text
.Range("BH" & uf) = TextBox39.Text
.Range("BI" & uf) = TextBox40.Text
.Range("BJ" & uf) = TextBox41.Text

.Range("BZ" & uf) = TextBox6.Text
.Range("CA" & uf) = MO.Text

Nombre.SetFocus

cod = ""
Nombre = ""
MO = "": MO.BackColor = &H80000016
CE = "": CE.BackColor = &H80000016
pH = "": pH.BackColor = &H80000016
CIC = "": CIC.BackColor = &H80000016

TextBox1 = ""
ComboBox19 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""

TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""
TextBox21 = ""
TextBox22 = ""
TextBox23 = ""
TextBox24 = ""
TextBox25 = ""
TextBox26 = ""
TextBox27 = "": TextBox27.BackColor = &H80000016
TextBox28 = "": TextBox28.BackColor = &H80000016
TextBox29 = "": TextBox29.BackColor = &H80000016
TextBox30 = "": TextBox30.BackColor = &H80000016
TextBox31 = "": TextBox31.BackColor = &H80000016
TextBox32 = "": TextBox32.BackColor = &H80000016
TextBox33 = "": TextBox33.BackColor = &H80000016
TextBox34 = "": TextBox34.BackColor = &H80000016
TextBox35 = "": TextBox35.BackColor = &H80000016
TextBox36 = "": TextBox36.BackColor = &H80000016
TextBox37 = "": TextBox37.BackColor = &H80000016
TextBox38 = "": TextBox38.BackColor = &H80000016
TextBox39 = "": TextBox39.BackColor = &H80000016
TextBox40 = "": TextBox40.BackColor = &H80000016
TextBox41 = "": TextBox41.BackColor = &H80000016

ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
ComboBox6 = ""
ComboBox7 = ""
ComboBox8 = ""
ComboBox9 = ""
ComboBox10 = ""
ComboBox11 = ""
ComboBox12 = ""
ComboBox13 = ""
ComboBox14 = ""
ComboBox15 = ""
ComboBox16 = ""
ComboBox17 = ""
ComboBox20 = ""

departamento = ""
municipio = ""

End If
End If

End With

Estaré enteramente agradecida por la colaboración que me puedan brindar.