Use the offset feature

With rCell.Offset(0, -2).Interior 'rCell is column F.  Offset -2 columns for column D