Error en formulario de búsqueda e ingreso de datos

hola tengo una base de datos y un formulario de búsqueda cuando ingreso el nombre de un proveedor se busca automáticamente el proveedor pero también necesito seguir agregando datos y por eso hice otro formulario donde me inserta los datos a la lista el problema es este:

cuando abro el formulario de agregar datos y agrego un proveedor mas funciona normal pero si primero abro el formulario e intento buscar y después quiero agregar datos me sale un error 1004.

lo que he observado es que al buscar los números de alado de mi lista de datos se ponen en azul y cuando están de este color ya no puedo agregar, pero si voy a mi primera columna le doy al icono y selecciono "seleccionar todo" de esa forma si se puede

no logro hacer que se puedan buscar datos y agregar al mismo tiempo ojala y puedan ayudarme que llevo vario días y no logro hacerlo es difícil de explicar todo lo mejor es enviarlo pero si no aquí dejo las macros.

muchas gracias

saludos

USERFORM DE BÚSQUEDA

Public columnas As Integer
Private Sub CommandButton1_Click()
UserForm6.Show
End Sub
Private Sub TextBox4_Change()
cargalist
End Sub
Private Sub UserForm_Activate()
columnas = 6
ListBox4.ColumnCount = columnas
End Sub
Sub cargalist()
'por.dam
ActiveSheet.AutoFilterMode = False
Sheets("LISTBOX4").Cells.Clear
ListBox4 = ""
With Range("LIST_ALMACEN")
.AutoFilter Field:=1, Criteria1:="=" & TextBox4 & "*"
.Copy Sheets("LISTBOX4").Range("A1")
End With
uf = Sheets("LISTBOX4").Range("A" & Rows.Count).End(xlUp).Row
num = InStr(1, Cells(1, columnas).Address(, False), "$") - 1
wletra = Left(Cells(1, columnas).Address(, False), num)
With Me.ListBox4
.RowSource = "LISTBOX4!A1:" & wletra & uf
End With
TextBox4.SetFocus
End Sub

USERFORM PARA AGREGAR DATOS

Sub NUEVOALMACEN()
Range("A2:F2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Selection.Interior.ColorIndex = xlNone
Range("A2") = Range("PROVEEDOR_NUEVO")
Range("B2") = Range("UNIDAD__NUEVO")
Range("C2") = Range("PRODUCTO_NUEVO")
Range("D2") = Format(Val(Range("P._UNITARIO__NUEVO")), "$#,##0.00")
Range("E2") = Format(Val(Range("IMPORTE__NUEVO")), "$#,##0.00")
Range("F2") = Range("FECHA_NUEVO")
Application.CutCopyMode = False
End Sub
Private Sub CommandButton2_Click()
NUEVOALMACEN
Range("LISTA_ALMACEN").ClearContents
Range("A2:F2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("G1").Select
End Sub
Private Sub TextBox3_Change()
TextBox6.Text = Now
End Sub
Private Sub TextBox4_Change()
TextBox7 = Format((Val(TextBox8) * Val(TextBox4)), "#,##0.00")
TextBox7 = Format(TextBox7, "#,##0.00")
TextBox6.Text = Now
End Sub
Private Sub SpinButton1_Change()
TextBox8.Text = SpinButton1.Value
End Sub
Private Sub TextBox8_Change()
TextBox7 = Format((Val(TextBox8) * Val(TextBox4)), "#,##0.00")
TextBox7 = Format(TextBox7, "#,##0.00")
End Sub