OK here is what I am trying to do now, I have a calendar workbook with worksheets by month. I have 3 rows 1st row has day of month, second has weekday of month and third contains a number 1-4 indicating what duty section have duty that day. Now I added a blank 4th row and what I am trying to do is fill in the 4th row based on criteria from rows 2 and 3. To get this to work I was trying to use the offset command move around cells to set and retrieve values however I cannot seem to get it to work. I just dont know how to maneuver around within the loop. I am also going to have more if statements but for now if i can get this one to work I can get the rest.

My poor example

Dim singlecell As Range
Dim listofcells As Range
Set listofcells = Range("E7", Range("F7").End(xlToRight))
For Each singlecell In listofcells

If singlecell.Value = 1 and offset(singlecell.address,-2,0) ="FRI" then

offset(singlecell.address,1,0) = "duty"
offset(singlecell.address,1,0 = "Off"
offset(singlecell.address,1,0= "Off"
offset(singlecell.address,0,3)= "dog"
  

End If
Next singlecell