Moving rows to other spreadsheets based on cell value

[paullyv33]

I would like to create a macro so that when the value in any cell from C3:C5000 is "Dropout" in the spreadsheet "Hoopers", that the cell's corresponding row (including the cell itself) be cut/moved to the first available row in another spreadsheet labeled "Dropout."

Then, after that row is moved, the resulting empty row is automatically deleted.

I would appreciate any help you could offer. Thank you.

 

[texasalynn]

change this line
Range("A3:D" & LR).Copy Destination:=Sheets(Dsht).Cells(ALR, 1)

to
Range("A3:AM" & LR).Copy Destination:=Sheets(Dsht).Cells(ALR, 1)

 

[paullyv33]

Perfect, thank you very much!