Ciao ADRIANA78, non so se ho capito bene comunque questa è la macro che fa il lavoro, con le formule non so nemmeno da dove cominciare.
Sub InsRighe()
Dim r, r1, c, d, d1, d2, x, k, ins
r1 = Cells(Rows.Count, 1).End(xlUp).Row
d1 = "G73X200"
d2 = "G73X1500"
For x = r1 To 9 Step -1
d = Cells(x, 1)
If Mid(d, Len(d) - 3, 1) = "Z" Then
k = Cells(x - 1, 1)
If Mid(d, Len(d) - 3, 4) <> Mid(k, Len(k) - 3, 4) Then
Cells(x, 2) = "*"
Range("A" & x & ":B" & x + 3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(x, 1) = d1
Cells(x + 1, 1) = k
Cells(x + 2, 1) = d2
Cells(x + 3, 1) = k
GoTo 1
End If
End If
1 Next x
End Sub
un unica cosa vedi che questa riga di codice la riga 7 sopra
ho inserito 9 perche da quello che vedo la prima riga differente con la "Z" è la 8 come vedi dai primi codici
comunque quel 9 non deve mai essere inferiore a 2 altrimenti va in errore
ti ho fatto anche inserire un asterisco nella colonna "B" per indicare dove è stato fatto l'inserimento, quindi quando inserisci nuovi dati tieni conto di cancellare anche la colonna "B"
io non so se va bene fai sapere, per lanciare la macro premi "Alt+F8" si apre la mascherina delle macro, ce ne è una sola "InsRighe" la selezioni e premi esegui oppure clicca 2 volte sul nome.
ti allego anche il tuo file, vedi che per fare le prove ho copiato i tuoi dati nel foglio2 in modo da fere copia incolla per le prove.
Ciao By Sal (8-D