¿Cómo programar botones de entrada salida para inventario?

buenas tardes, donde podría ver código para hacer botones de entrada y salida en un inventario y poder hacer consultas de los productos, la búsqueda lo estoy haciendo con la formula buscar, aunque no consigo buscar números y letras, y con el código de entrada me quedo asi:

sub entrada()

range("A2").select

claveentrada=activecell.formula r1c1+4

cellentrada="D"&

end sub

la verdad que estoy muy perdido.