salva prova a ad adattare questa.
Sub test()
lastrow = Range("a" & Rows.Count).End(xlUp).Row
Set rng = Range(Cells(1, 3), Cells(lastrow, 3))
For i = rng.Rows.Count To 1 Step -1
If Cells(i, 3).Value = False Then
Cells(i + 1, 3).EntireRow.Insert
End If
Next i
End Sub
saluti
Giap