No me Funciona esta Macro

Respetados señores siguiendo instrucciones de Internet logre realizar un formulario pequeño con VB, luego intente hacer ese formulario más completo y la macro ya no funciona ruego su ayuda.

Private Sub imgCerrar_Click()
Unload Me
End Sub

Private Sub imgGuardas_Click()

End Sub

Private Sub imgGuardar_Click()
GuardarInformacion
End Sub
Sub GuardarInformacion()

Rem Declaracion de Variables
Dim contFila As Long
Dim Hoja As Worksheet
Set Hoja = Worksheets(1)
' Validamos que los campos de texto correspondiente a los datos de guardas estén diligenciados totalmente
If Trim$(txtcogido.Text) = Empty Or Trim$(txtNombres.Text) = Empty Or Trim$(txtApellidos.Text) = Empty Or Trim$(txtCedula.Text) = Empty Or Trim$(txtnacimiento.Text) = Empty Or Trim$(txtDireccion.Text) = Empty Or Trim$(txtTelefono.Text) = Empty Or Trim$(txtEmail.Text) = Empty Or Trim$(txtingreso.Text) = Empty Or Trim$(txtcurso.Text) = Empty Or Trim$(txtpuesto.Text) = Empty Or Trim$(txtvehiculo.Text) = Empty Or Trim$(txtobservaciones.Text) = Empty Then
MsgBox "por favor ingrese todos los datos", vbCritical, "Datos Incompletos"
Exit Sub
End If
' Validamos la fila siguiente en la hoja donde se debe ingresar los datos
contFila = Hoja.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Hoja.Cells(contFila, 1).Value = Me.txtcodigo.Value
Hoja.Cells(contFila, 2).Value = Me.txtNombres.Value
Hoja.Cells(contFila, 3).Value = Me.txtApellidos.Value
Hoja.Cells(contFila, 4).Value = Me.txtCedula.Value
Hoja.Cells(contFila, 5).Value = Me.txtnacimiento.Value
Hoja.Cells(contFila, 6).Value = Me.txtDireccion.Value
Hoja.Cells(contFila, 7).Value = Me.txtTelefono.Value
Hoja.Cells(contFila, 8).Value = Me.txtEmail.Value
Hoja.Cells(contFila, 9).Value = Me.txtingreso.Value
Hoja.Cells(contFila, 10).Value = Me.txtcurso.Value
Hoja.Cells(contFila, 11).Value = Me.txtpuesto.Value
Hoja.Cells(contFila, 12).Value = Me.txtvehiculo.Value
Hoja.Cells(contFila, 13).Value = Me.txtobservaciones.Value
' se limpia o borra los datos de los campos de texto del formulario
Me.txtcodigo.Value = ""
Me.txtNombres.Value = ""
Me.txtApellidos.Value = ""
Me.txtCedula.Value = ""
Me.txtnacimiento.Value = ""
Me.txtDireccion.Value = ""
Me.txtTelefono.Value = ""
Me.txtEmail.Value = ""
Me.txtingreso.Value = ""
Me.txtcurso.Value = ""
Me.txtpuesto.Value = ""
Me.txtvehiculo.Value = ""
Me.txtobservaciones.Value = ""
End Sub

Private Sub txtcodigo_Change()

End Sub

Private Sub UserForm_Click()

End Sub