Okay ... once again thank you to everyone who has helped me get this far .... The new challenge ... record my sales and inventory. I want to thank Richard Buttrey, for giving me this piece of code ... 

Sub AddData()
     Range("A5").EntireRow.Insert
     Range("DataEntry").Copy Destination:= Range("A5")
End Sub
What i would like is to use this idea to keep track of my innovatory ... Basically i would like this code to add the Entry in too a new sheet, and then to reduce an indicator for innovatory ...