Move all rows where cell = "complete" to the bottom of the list

Hi
I want my speadsheet to automatically update and move rows to the bottom of the list when a job has been completed. I don't mind if I need to click a button to run the macro if that will be easier.

I have attached a sample spreadsheet of the data. Basically when the "Status" column (G) has the word "Complete" entered, I then want this entite row to move to the bottom of the list.

Any help on this would be great as I haven't got a clue where to start!

1) Right-click on the sheet tab and select View Code
2) The VB editor will open the sheet module, paste in this "event" macro:

Please Login or Register  to view this content.

3) Close the VB editor and save your sheet.

Now anytime you enter the word COMPLETE into column F, it will instantly move that row to the bottom of the list.