Transferring entire row to another page in same book

[0 Agios]

I Have this code but does not work, any help please, i am trying to transfer the entire row to another page, and then hide original row

With ActiveWorkbook

ActiveCell.EntireRow.Select
Selection.Copy

Sheets("Won Jobs").Activate
Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).Select
ActiveCell.EntireRow.Select
Selection.Paste

End With

 

[My Aswer Is This]

Well this would be very difficult to work.

So if you select any cell in your entire worksheet you want a script to run

I would think you might say if I double click any cell in column E of my worksheet I want this row
Copied to a sheet named Won Jobs and paste to lastrow+1 in column E with data

And then hide that row on original sheet.
Would this work?

 

[0 Agios]

No I run the script by clicking on a form button

 

[My Aswer Is This]

Try this:

Private Sub CommandButton1_Click()
'Modified  5/10/2021  5:38:40 PM  EDT
Dim Lastrow As Long
Dim r As Long
r = ActiveCell.Row
Lastrow = Sheets("Won Jobs").Cells(Rows.Count, "E").End(xlUp).Row + 1

ActiveCell.EntireRow.Copy Sheets("Won Jobs").Cells(Lastrow, 1)
Rows(r).Hidden = True
End Sub

 

[0 Agios]

Prefect it worked thank you

 

[My Aswer Is This]

Prefect it worked thank you

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.