VBA copy cells and paste, and clear columns?

[behedwin]

Hey

I need some help with excel.

I want to find some code that do this:

1. In sheet 1, Select range (row 4:158).
2. Copy all data and paste into sheet2 from row 2 pushing old data downward.
3. Then in sheet 1, clear column B, E, F and G in range (4:158).


How can i make all this happen in one action with the push of a button?

 

[Joe4]

Try this:

Sub Macro1()
    Sheets("Sheet1").Rows("4:158").Copy
    Sheets("Sheet2").Range("A2").Insert Shift:=xlDown
    Sheets("Sheet1").Range("B4:B158,E4:G158").ClearContents
End Sub