Deleted rows and add to another sheet

[Puggwash63]

Hello all,

I have a sheet, that each time I add the No8 to Cell D, then click on the Delete Rows button, the entire Row is deleted.

What I require now, is when the Deleted Rows button is pressed, the row is removed from that sheet but is saved to another sheet.

This is the code I have to delete the Rows
Can you help with the update, so the Deleted Rows will be saved to another sheet.

Private Sub CommandButton1_Click()
With Sheets("Activity Rows Deleted")
LastP = .Range("D" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For r = LastP To 2 Step -1
If .Cells(r, "D") = 8 Then .Cells(r, "D").EntireRow.Delete
Next r
End With
Application.ScreenUpdating = True
End Sub

Many thanks

Pugg

[alansidman]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)