Devi modificare la macro:
Ti server eseguire un ciclo, te lo scrivo in quasi-pseudo-codice, a grandi linee (anche perchè non so niente del tuo foglio):

codice:
Dim i as long
For i = <riga_inizio> to <riga_fine>
    1. seleziona la riga i
    If cella("B", i ) = valore Then
        2. inserisco riga
        3. sposto valore
    End If
Next i
N.B. come da REGOLAMENTO, il codice lo devi racchiudere tra gli appositi tag [code ] e [/code ]
(senza lo spazio prima della parentesi quadra chiusa)
e deve essere indentato (guarda il mio)