Use Offset to select offset cell value

[snb]

Besides, I'd prefer:

Sub M_snb()
  For Each it In usedrange.columns(4).offset(11).specialcells(2)
    it.offset(,1)= it.offset(,-2*(it = 5)).Value
  Next
End Sub