Thank you very much for all your help...
The data sheet fits in to the script by providing a location for the New submission entries to go in. So i have a find command on a key word that is in the data sheet, have it insert a row(s) above the key word in the data sheet and Then i have a count function that counts how many entries there are in the New Submission sheet so it can insert that many of rows in the data sheet.
By the way Rick Rothstein, It performs and error on this line:
[Submit.Range("B1").Value = "=""" & Info.Range("A1").Value & " ""&" & Mid(Submit.Range("B1").Formula, 2)]