Macro to clear row data then shift remaining data up to empty rows.

Tried searching for this but not sure if it was ever attempted. I'm looking for advice on the following: I'd like to have a sheet with multiple columns of data (say A thru K for instance.). Id like to reserve column A for ONLY imputing an X. The rest of the columns b-K would have data in the cells. I'd like to have a macro that when it saw an X in column A, would copy all of the data in cells B-K in that row, paste it into the next empty row of a second sheet (for history tracking), then go back to the original sheet and continue looking for additional "X"'s and repeat. Once all of the X's were copied, it would "clear" (Not delete because some of the cells would have formulas in them that would need to remain for future use.) the cells based on the "X" then finally move all of the remaining data up to the empty rows to fill in the empty rows. This last piece would be more for esthetics to have a clean looking sheet. Does anyone have any ideas on this that they could share?

Try this...

1) It copies all "x" rows to Sheet2
2) It deletes all "x" rows from Sheet1

Sub tester()

Dim i As Integer
Dim r1 As Long  '"x" cell row...
Dim cell As Range
Dim rng As Range
Dim ws As Worksheet

Set rng = Range("A1:A20")
Set ws = Sheets("Sheet2")


ws.Range("A1:Z100").Clear


i = 1
For Each cell In rng
    r1 = cell.Row
    If cell.Value = "x" Then
        ws.Range("B" & i & ":K" & i).Value = Range("B" & r1 & ":K" & r1).Value
        i = i + 1
        
        Range(r1 & ":" & r1).Delete
    End If
Next cell



Dim r2 As Integer

For k = 1 To 20

    r2 = 21 - k
    If Cells(r2, 1).Value = "x" Then
        Range(r2 & ":" & r2).Delete
    End If
Next k


ws.Activate

MsgBox ws.Name & " was updated with all " & Chr(34) & "x" & Chr(34) & " rows" & vbCrLf & _
        "Sheet1 removed all " & Chr(34) & "x" & Chr(34) & " rows"

End Sub