Macro para copiar celdas especificas y pegar en tabla de dimensiones definidas

Hola...

Tengo en la hoja 1 una tabla formada de la siguiente manera...

A1="GATO" A2="1"

B1="PERRO" B2="0"

C1="LEÓN" C2="0"

D1="LOBO" D2="1"

E1="PEZ" E2="0"

Ahora lo que deseo es qu