Ciao, immagino che stai parlando di una macro all'interno del foglio excell??
In questo caso cerco di illustrarti una possibile soluzione.
Per ogni foglio devi eseguire una scansione della colonna G utilizzando l'istruzione cells, che prende come parametri l'indice della riga e della colonna, riferite alla cella che vuoi selezionare:
la colonna G ha indice di colonna 7 (A=1, B=2, C=3, ecc)
for i = 1 to n
valore = cells(i, 7).value
if valore = 1 then
copiaDati i
end if
next
la funzione copiaDati, prende come parametri l'indice della riga della quale si vogliono copiare i dati e sempre con l'istruzione cells, prende i dati della colonna B e li mette nel foglio CONFRONTO
private sub copiaDati(byval id_riga as integer)
dim valore as integer
valore = cells(i, 2).value
CONFRONTO.cells(riga_dest, colonna_dest).value = valore
end sub
dove riga_dest e colonna_dest sono due variabili che determineranno il posizionamento del dato nel foglio confronto.
Spero di esserti stato di aiuto