Hi all Me again!
im working on a diet form for you GF and i want to make it nice and simple to use basically i have got a macro at the minute that when you click on a button it copys the calories eaten on mon,tue,wed ect.
then goes to a "Weigh in" Sheet and Pastes in a Specific cells.
What i Now need it to do (because the first week is now complete) is to Paste To the next week.

So If N8 = (Value) Then Goto Cell N9 If that cell Has data in it then goto N10 ect.
When it finds a N Cell without Data Paste the Dim Mon(Dim Mon Is set From the origional sheet Befor If Statements).

Then Rince and Repeat for Tue in O8 ect ect.

here is My current Macro
----------------------------------------------------------------------------------
Sub Transfer_Sara()
'
' Transfer_Sara Macro
' Transfers Saras Eaten List to Weigh in sheet
'

'
Dim Mon As Integer
Dim Tue As Integer
Dim Wed As Integer
Dim Thu As Integer
Dim Fri As Integer
Dim Sat As Integer
Dim Sun As Integer

' Makes The New integers the same as on the Meal calc sheet
' Mon = Worksheets("Sheet 1").Range("A65536").End(xlUp).Row
Mon = Worksheets("Meal Planner").Range("C22")
Tue = Worksheets("Meal Planner").Range("C23")
Wed = Worksheets("Meal Planner").Range("C24")
Thu = Worksheets("Meal Planner").Range("C25")
Fri = Worksheets("Meal Planner").Range("C26")
Sat = Worksheets("Meal Planner").Range("C27")
Sun = Worksheets("Meal Planner").Range("C28")

'Transfer data

Sheets("Weigh in").Range("N8") = Mon
Sheets("Weigh in").Range("O8") = Tue
Sheets("Weigh in").Range("P8") = Wed
Sheets("Weigh in").Range("Q8") = Thu
Sheets("Weigh in").Range("R8") = Fri
Sheets("Weigh in").Range("S8") = Sat
Sheets("Weigh in").Range("T8") = Sun

End Sub
------------------------------------------------------------------
How would i go about adding the IF statement to this?

once i Know for one Colum i can figure out the rest :)
Just Learning as i go at the minute!
Thanks for the Help in advance!


Chris