s = ActiveCell.Address \'Dim\'med this as Variant to stored a location in this variable.
ActiveCell.Offset(a, 11) = ActiveCell.Offset(b, 1).Value - ActiveCell.Offset(