Sub Macro5()
'
' Macro5 Macro
' qunxingw  2016/5/21 
全部录制。

'
    Sheets("Sheet3").Select
    Range("E1").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("E1:E50")
    Range("E1:E50").Select
    Range("A1:C50").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet3").Select
    Range("G1:I50").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("G1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub