Duda con respecto a una búsqueda e inserción de información a una hoja de excel

Hola a tod@s, tengo un problemilla, y es el siguiente:
He programado un formulario donde me captura unos datos, estos son insertados en una hoja y según el código capturado toma un dato y lo inserta en otra hoja.
Ya he logrado que me inserte los datos en la hoja "aunque me tira un salto de linea que no tengo idea del porque..." pero no logro que me inserte el dato requerido según el dato digitado...???
Es posible que alguien me tire una manito..
Mil gracias...
Acá dejo el código que me tira los datos a la otra hoja con salto de linea...
Private Sub comboBox1_Change()
If ComboBox1 <> "" Then
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
Dim c As Range
With Worksheets("Inventario").Range("B3:B25000")
Set c = .Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Worksheets("inventario").Visible = True
Worksheets("inventario").Select
c.Select
Else
MsgBox "No encontrado"
End If
End With
TextBox1 = ActiveCell.Offset(0, -1).Value
TextBox2 = ActiveCell.Offset(0, 0).Value
TextBox3 = (ActiveCell.Offset(0, 4).Value * 30 / 100) + ActiveCell.Offset(0, 4).Value
TextBox4 = ActiveCell.Offset(0, 6).Value
ComboBox1 = ""
ComboBox1.SetFocus
Exit Sub
End If
End Sub
Private Sub ComboBox2_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range
Set rngFechas = ComboBox2_Change
If Union(Target, rngFechas).Address = rngFechas.Address Then _
Call abrir_calendario
End Sub
Private Sub CommandButton1_Click()
If TextBox1 <> "" Then
Worksheets("ventas").Visible = True
Worksheets("ventas").Select
If TextBox4 <> "" Then
ActiveCell.Offset(0, 3).Value = TextBox6.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 0).Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
Else
MsgBox "Ingrese Cantidad"
TextBox3.SetFocus
Exit Sub
End If
Else
MsgBox "Seleccione Producto o seleccione Cerrar "
Exit Sub
End If
*****
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
ComboBox1.SetFocus
Worksheets("menu").Select
Worksheets("inventario").Visible = True
End Sub
Private Sub UserForm_Activate()
Dim I As Integer
ComboBox1.Clear
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
ComboBox1.SetFocus
I = 3
Do
ComboBox1.AddItem Worksheets("INVENTARIO").Cells(I, 2).Value
I = I + 1
Loop Until Worksheets("INVENTARIO").Cells(I, 2).Value = ""
ComboBox2.Clear
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
ComboBox1.SetFocus
ComboBox2.AddItem "Fecha"
End Sub
Y con estas lineas es que estoy intentando hacer la búsqueda he inserción en otra hoja..
If TextBox1.Value = Cells.Find(What:=" TextBox1.Value ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate Then
ActiveCell.Offset(0, 6).Value = TextBox6.Value
End If
es de apuntar que las estoy colocando en donde tengo ****
Bueno y si no es mucha molestia me podrían informar el porque al llamar el calendario no me carga... Ni me deja la fecha en el cuadro que quiero...
Bueno son solo esas cosillas... "casi nada.. No.." je je je
Muchas gracias por su colaboración.