Sub 宏1() Rows(4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows(11).Copy Rows(4)End Sub