hola excelente aportes para comenzar, necesito su ayuda por favor, cree formulario active x  para que se poder hacer ingresos y modificación de datos todo iba bien hasta que puse el botón de modificar y metí el código pero ahora me sale un error que ejecución 424 espera un parámetro. No se que hice mal pongo el código del botón y no me deja ejecutarlo y ya he tratado pero nada,  bueno adicional a esto me gustaría que cuando se meta la información conserve los formatos de las celdas mil gracias.

dejo el código.

Private Sub buscar_Click()
On Error Resume Next
nombre.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D400"), 2, False)
cc.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D400"), 3, False)
fecha.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D400"), 4, False)
End Sub

Private Sub CANCELAR_Click()

Unload Me

End Sub

Private Sub id_Change()

If Val(id.Value) = 0 Then
 buscar.Enabled = True
 ingreso.Enabled = False
 modifica.Enabled = True
End If

End Sub

Private Sub ingreso_Click()

With Sheets("CLIENTES-VS")

.Rows("5:5").Insert Shift:=xlDown
   
.Rows("5:5").Interior.Pattern = xlNone

.Range("A5").Value = id

.Range("B5").Value = nombre

.Range("C5").Value = cc

.Range("D5").Value = fecha

End With

End Sub

Private Sub modifica_Click()

bus_id = WorksheetFunction.Match(Val(id.Value), Sheets(1).Range("A5:A400"), 0) + 4
    With Sheets("CLIENTES-VS")
    
        .Range("B" & bus_id).Value = nombre.Value
   
        .Range("C" & bus_id).Value = cc.Value
 
        .Range("d" & bus_id).Value = fecha.Value
    End With
End Sub

Private Sub UserForm_Initialize()

 buscar.Enabled = False
  ingresar.Enabled = True
  modifica.Enabled = False
id.Value = Range("f2").Value + 1

End Sub