ActiveWindow.SmallScroll Down:=-21
ActiveCell.Rows("1:39").EntireRow.Select
ActiveWindow.SmallScroll Down:=-24
Selection.Copy
ActiveWindow.SmallScroll Down:=33
ActiveCell.Offset(39, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
Sheets("成果表").Select
ActiveWindow.SmallScroll Down:=-24
ActiveCell.Rows("1:39").EntireRow.Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=39
ActiveCell.Offset(39, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Sheets("计算").Select
ActiveWindow.SmallScroll Down:=3
ActiveCell.Offset(9, 3).Range("A1:E25").Select
ActiveWindow.SmallScroll Down:=-12
Application.CutCopyMode = False
Selection.Copy
Sheets("成果表").Select
ActiveWindow.SmallScroll Down:=9
ActiveCell.Offset(9, 3).Range("A1:E25").Select
ActiveWindow.SmallScroll Down:=-9
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("计算").Select
ActiveWindow.SmallScroll Down:=-12
ActiveCell.Offset(-9, 0).Rows("1:39").EntireRow.Select
End Su