excel inseire riga vuota su condizione

[libraio]

So WINDOWS 7 + Excel 2003

Ciao a tutti,
sto tentando, invano, di applicare su un foglio Excel una macro che già utilizzo su altro lavor, pur adeguandola alle mie esigenze.

Vorrei inserire una riga vuota quando il nome della scuola in colonna B è diverso dalla cella superiore.
Per semplificare la vostra auspicata collaborazione ho postato una file di esempio con insrita la macro (che non funzione...)
https://we.tl/t-c5JxFMuMj5

Grazie per l'aiuto

[Marius44]

Ciao
Prova a modificare la macro col ciclo al contrario, cioè

Codice: Seleziona tutto

Sub InsertRow()
Dim i As Long
For i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  If Cells(i, 2) <> Cells(i - 1, 2) Then
    Rows(i & ":" & i).Insert Shift:=xlDown
  End If
Next i
End Sub


Ciao,
Mario

[libraio]

E' perfetto!
Grazie
Claudio