Cut rows in one sheet and append them to another sheet

[joemaine]

I would like to cut from Sheet1 (A1:G100) all rows which have "Archive" in column G. The results would be appended to the next empty row in Sheet4. The remaining rows in Sheet1 in Range A1:G100 would shift up without affecting the existing conditional formatting rules that are applied to that Range. The rows below the Range A1:G100 would not shift. This code would be called when a button is selected on Sheet1. (Instructions for the button would also be appreciated)

 

[joemaine]

How about ...

Sheets("Sheet1").Range("A:G").Copy Sheets("sheet2").Range("A1")

This doesn't paste the data into the Sheet2

 

[joemaine]

This doesn't paste the data into the Sheet2

Hey Yongle - it works GREAT (seems I couldn't even cut and paste correctly).

THANK YOU!!

 

[Yongle]

Thanks for the feedback