Excel VBA - insert blank row and format it

Sub Insert_Blank_Rows()
Dim iRow As Long
Dim myText As String

myText = Range("E5").Text
With Selection
 For iRow = .Rows.Count To 1 Step -1
 .Rows(iRow + 1).EntireRow.Insert shift:=xlDown
 With .Rows(iRow + 1)
 .Range("A1:B1").Value = .Offset(-1).Range("A1:B1").Value
 .Range("C1:D1").Value = Array("No Show", myText)
 End With
 Next
End With

End Sub