Código para buscar en la hoja seleccionada la línea y pegar los datos capturados en USERFORM

Hola Expertos…

Tengo una macro USERFORM1 que al seleccionar la opción de número de cuenta y clikear el botón “Verificar”, me valida correctamente los otros datos generales de la misma. En el mismo USERFORM1, se capturan 3 datos para ser registrados en esta misma cuenta seleccionada pero al clikear el botón “Registrar” me manda el mensaje “Datos registrados” pero no los imprime en la hoja. Mi petición es su apoyo para corregir esta macro la cual anexo a la presente. 

Private Sub CommandButton3_Click() ' ”Registra” o pega los datos capturados en la hoja o “Cta” seleccionada.

Application.ScreenUpdating = False

 For Each h In Sheets

      n = h.Name

 If UCase(h.Name) = UCase(ComboBox1) Then

 existe = True

 Exit For

 End If

 Next

 If existe = False Then

 MsgBox "La Cta seleccionada no existe", vbCritical, "SELECCIONAR OTRA CTA"

 Exit Sub

 ComboBox1.SetFocus

 End If

 'XXXXXXXXXXXXXX

 ' Identifica datos generales de la cta. Seleccionada en CmbBx1.AddItem"

 Set h1 = Sheets(ComboBox1.Value)

 '  h1.Unprotect

 TextBox1 = h1.Range("d2") ' Nombre Cta

 TextBox2 = h1.Range("d3") ' Banco

 TextBox3 = h1.Range("d4") ' Cta. Destino

'XXXXXXXXXXXXXXXXX

 'Ya encontrada y verificada la cuenta, debe buscar la primer línea vacía después de la #5 ‘y pegar los datos capturados a partir de la columna “B” Fecha; “C” Dia; “D” Folio y “C” Importe; ‘finalmente, regresar a la hoja1.

    ‘ ….. ‘

          uc = h1.Cells(b.Row, Columns.Count).End(xlToLeft).Column + 1

          If uc < 2 Then uc = 2

          h1.Cells(b.Row, uc) = Date 'Fecha

          h1.Cells(b.Row, uc + 1) = (ComboBox3)   ' Dia

          h1.Cells(b.Row, uc + 2) = (TextBox5)        'No. Folio

          h1.Cells(b.Row, uc + 3) = (TextBox6)        'Importe $

    End If

       MsgBox "Datos Registrados"

      '  h1.Protect

'xxxxxxxxxx

'Sheets("Hoja1").Select

End Sub