If "Completed" then move entire row to "Completed" worksheet

I am working on an excel spreadsheet that if "complete" is selected in column a, then the entire row moves to the "Completed" worksheet and the row is deleted. Additionally, I imagine the same sort of code is needed so that; if a "division" is selected in column d, then the data is replicated in the appropriate division worksheet along with updates in the division specific worksheet is also replicated on the "Agency Update".

Any help that can be offered would be grealty appreciated.

Reed1620

Sub My_macro ()
ActiveCell.SpecialCells(xlLastCell).Select
LastRow = Activecell.Row

For Row = 1 to LastRow
CellContents = Cell(Row, 1)
If CellContents = "Completed" then

*record the next bit*
-cut row
-move to other sheet and make it the active sheet
-use 'ctrl+end' to find the last filled row and add 1 (ActiveCell.SpecialCells(xlLastCell).Select)
-paste cut row
-go back to the first tab and make that active again

end if
Next Row
end Sub

Red Spot,

I apologize, I guess I am not as familiar as I thought. Could you please provide some guidance on executing the above code.

Google is your friend, my friend

I'm a true noob in VBA (well, sort of) and I know this simply cause of trial and error.

Anway, quick and dirty, line for line:
Start the Macro
Determine what the last row & cell are in the active sheet
Get the row from the last cell in the sheet

Loop from row 1 to the lastrow
Get the contents from the cell
Check if the cell contents = completed


Try to figure out what steps you need to take to get things done and google every (small) step.