EXCEL
Sub 宏1()
'
' 宏1 宏
'
'
Range("A4:G15").Select
Selection.Copy
Rows("24:24").Select
Application.CutCopyMode = False
Range("A4:G19").Select
Selection.Copy
Rows("24:24").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=9
End Sub