Macro búsqueda y copiar en diferentes hojas según criterio de búsqueda

Hola, tengo esta macro para buscar un código en una macro y copiarla en una hoja específica. Necesito ayuda para realizar la siguiente acción.

La base de datos es la hoja Compras.

Los datos los necesito sacar a la Hoja Tomate, Acelga, Albahaca, etc.

los códigos que necesito buscar los tengo en la columna A de cada hoja (Tomate, Acelga, Albahaca, etc.)

Hoy la macro que tengo solo busca la hoja Tomate en la Celda A2, pero tengo códigos en A3, A4, etc.

Necesito que la macro busque los código de la Hoja Tomate y los copie en esa hoja a partir de la columna B, en la primer celda vacía (ya resuelto).

Luego que termine con esta acción, quiero que cambie de hoja y busque los códigos de la Hoja Acelga y los copie en esa hoja a partir de la columna B, en la primer celda vacía (ya resuelto).

Y así sucesivamente hasta la última Hoja del libro, que puedo tener unas 20 hojas.

desde ya muchas gracias y les paso la Macro que tengo.

Sub Copiando()

nrocodigo = Sheets("Tomate").Range("A2").Value

Dim ultima As Long

ultima = Range("B65536").End(xlUp).Row

ultima = ultima + 1

Cells(ultima, 1).Select

Worksheets("COMPRAS").Select Range("A2").Select

While ActiveCell.Value <> "" dato = ActiveCell.Value

código = dato

If código = nrocodigo Then

Selection.Range("A1", "W1").Copy

ActiveSheet.Paste Destination:=Worksheets("Tomate").Cells(ultima, 2)

ultima = ultima + 1

End If

ActiveCell.Offset(1, 0).Select

Wend

Application.CutCopyMode = False

End Sub

Ejemplo Macro de Compras.rar