Thanks Arlette
I have solved the problem - added Next, repeated the if statment and then the Special Cell selection and it works. Problem I have now though that I did not realise is that the col with the TODAY() formula is copying the formula and not the result. Thus it updates to today for every record in the Sales Records worksheet. I "think" I need to remove the col/forumla off the sales input sheet and instead add something to the code to get it to insert the Value of Today() to each line just pasted.