Sub TTT()
Dim tt_ As Long
Dim ii As Long
tt_ = Cells(Rows.Count, 1).End(xlUp).Row
For ii = tt_ To 1 Step -1
If Cells(ii, 1).Value = 2 Then
Rows(ii & ":" & ii + 5).Insert
End If
Next ii
End Sub