[vba]

Sub DeleteErrors()
Dim i As Long
Dim iLastRow As Long
Dim x As Long
Dim xLastRow As Long

With ActiveSheet

Application.ScreenUpdating = False

.Columns("B:B").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 2 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 1).Value = "item_id"
Next i

xLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For x = 1 To xLastRow
.Rows(x).Hidden = .Cells(x, "A").Text = "item_id"
Next x

Application.ScreenUpdating = True

End With
End Sub
[/vba]