xB21 = Int((S1.Range("C8").Value + 225) / 450) + 1 '<== eklenen
S1.Range("B21").Value = xB21 '<== eklenen
sadece şu kodu ekleseniz?