Como ubicar los datos ingresado en textbox en la celda requerida

Estimados expertos saludos, no comprendo la razón por la cual el siguiente codigo publicado en este foro me ubica los datos ingresados en el textbox en la fila 40. Cuando en realidad lo requiero en la fila 5 concretamente desde la columna C.

Adjunto el codigo que incluye el problemas de hacer un numero consecutivo

el primero

Private Sub CommandButton1_Click()

Dim Consecutivo As String 'Ingresa el valor consecutivo

Dim Nombre As String

Dim Telefono As String

Dim Institucion As String

Dim ultimafila As Double 'Busca la Ultima Fila


Consecutivo = TbxNumOficio.Value

Nombre = TbxDirigidoA.Value

Telefono = TbxTelef.Value

Correo = TbxInstitucion.Value


ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

Cells(ultimafila + 1, 3) = Consecutivo

Cells(ultimafila + 1, 5) = Nombre

Cells(ultimafila + 1, 9) = Institucion

Cells(ultimafila + 1, 11) = Telefono


Range("C4").Select

Selection.End(xlDown).Select

TbxNumOficio = ActiveCell + 1

End Sub[/CODE]

El segundo codigo

Agradezco su gentil colaboracion