ActiveCell.Range("A1:I1").Select
Selection.Copy
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Rows("1:1").EntireRow.Select
Selection.ClearFormats
ActiveCell.Offset(1, 1).Range("A1").Select