Cut Row / Paste In Sheet2 And Shift Cells Up In Sheet1

I have this code (command button1) which works just fine. What it does is if cell 02 in sheet1 is "14" then it copies the entire row to sheet2. The same goes for all O column

I would like to change it a little bit.

Instead of copy i would like to cut the row, paste it in sheet2 and shift cells up in sheet1

Code:
Private Sub CommandButton1_Click()
Dim FirstAddress As String
Dim myArr As Variant
Dim Rng As Range
Dim Rcount As Long
Dim I As Long
Dim LastCol As String

[Code] ........