Macro to move rows from one sheet to another based on cell value

I have looked at/tried several macros from several threads but they all seem to do some of what I need but not everything. The last one did successfully move a row from one sheet (ITEMS) to another sheet (SOLD) based on the cell value of the STATUS column. (If 's' then move to SOLD sheet. But each time it moved a row it deleted the previous ones instead of 'adding' to the existing list.

So essentially I have a spreadsheet with 3 sheets....ITEMS, DONATED, SOLD. The ITEMS page may contain unlimited rows. I want to be able to enter a sold status ('s') in the STATUS column of a row and then....

1. The entire row should move from the ITEMS sheet to the SOLD sheet. There will already be a TITLE ROW on the first row of the SOLD sheet so the inserted rows should start at 2 but when a row is moved to this sheet it should be added to the existing list not delete anything on the list. There will also be a TOTALS row at the bottom that will have formulas to total the SOLD items values etc. So the rows moved to this sheet should be inserted BETWEEN the TITLE row and the TOTALS row.
2. The ITEMS sheet will not longer contain the SOLD row item and thus the other items in the list will shift upwards.

The same would be true if the STATUS column is 'd'.....except the entire row would move to the DONATED sheet.

Ideally I would also like to be able to move a row BACK to the ITEMS sheet from the SOLD or DONATED sheet if the Status of S or D is removed from the STATUS column on the Sold or Donated sheets.

Thanks for the reply.
I have attached four spreadsheets.
Shell - The basic shell (including formulas) that I would start with
Initial - The initial entry of client's data
Updated - Additional entries after items have sold.....Updates are shown in ITEMS sheet and comments showing where the rows should move to.
MOVED - What sheet should look like after rows have been moved. Note, there are formulas on the different pages with relative sums etc that need to change accordingly.
In this example, after the rows have moved, I've entered information on the SOLD page in columns g,i,j,k,m,t that were used in formulas for columns h,l,n,o,p,q,r,s,u.

So I need
1. Rows to move so they are added to the bottom of the most recent list
2. When rows move, for the empty row to be deleted and other rows moved up.
3. SOLD sheet formulas in new columns to work for the newly moved-in rows
4. TOTALS formulas in SOLD sheet to be relative to newly moved-in rows.

Thank you for your help.

So.....
I went to my INITIAL workbook and changed the SOLD sheet total formulas like you said.
Then I went to the ITEMS sheet, right clicked, selected view code, copied the above code into the sheet.
Then I changed the Status to S......and nothing happened....

Sorry,I WAS expecting it to trigger from the status entry.
I would be fine to have it manually run.....isn't there a way to add a 'update button' that I could click to run the macro?
Sorry, I'm such a newbie at this. Your help has been invaluable!

running the macro manually worked great btw

Hi, Sorry to bother again,
but it appears when I run the macro in the ITEMS sheet that the formula in the last column in the SOLD sheet
does not get copied into the cell like the others do. I tried to decipher the code and thought I just needed to increase
the range in this code from 15 to 16 but it didn't help.

Set R = ws.Cells(3, 6).Resize(1, 15): R.Copy ws.Cells(2, 6)

Also, the ITEMS sheet entries started in line 3 in my example but that was inadvertent(sorry!).
So now when I put something in line 2 (the first line under the column headings) it doesn't transfer over.

I think changing the code

For i = wi.Range("B" & Rows.count).End(xlUp).Row To 3 Step -1

from 'To 3' to 'To 2' might fix the problem but I'm not sure.

Thanks.

Also, it doesn't seem to take the value of column 6 (S/H fee for buyer) over either. Again, I think its a range thing

Set R = wi.Rows(i): R.Cut: ws.Cells(2, 1).EntireRow.Insert
Set R = ws.Cells(3, 6).Resize(1, 15): R.Copy ws.Cells(2, 6)


but the changes I make seem to make it worse.

The first fix worked for picking up the missing row. Already tested it out.

But changing the range to 16 does not bring in the formula from Sara's NET (last column 21 in SOLD sheet)
.....and the S/H column (column 6,last one on the ITEMS sheet)does not cross over either.....

Sorry. I did make changes.
Fortunately I've figured everything out!
.....
but I have a 'new' problem that I've almost solved but not perfectly.
I created another sheet for my client to just have the info she needs.
basically the item description, sold price, and the date paid and check #.
I have figured out how to copy the information to the new sheet with one problem.
The information is not in consecutive columns. No problem.
Here's my code.
Set R = ws.Cells(i, 1).Resize(1, 3): R.Copy: wc.Cells(2, 1).Resize(1, 3).Insert
Set R = ws.Cells(i, 15).Resize(1, 4): R.Copy: wc.Cells(2, 4).Resize(1, 4).Insert

HOWEVER, the first three columns copied are entered values. Then I skip some columns and copy four more columns starting at column 15. Columns 16-18 are also entered values so they copy fine but column 15 is a value derived from a formula so its copying over the formula not the actual computed value. I think I should probably use pastespecial but I don't know how....

Thanks.

Perfect! Thank you!