Rows("1:1").Select Selection.Copy Rows("2:2").Select Selection.Insert Shift:=xlDown