kodu aşağıdaki gibi dener misiniz?

    xB21 = S1.Range("B21").Value

    If S1.Range("B22").Value >= 450 Then xB21 = Int((S1.Range("C8").Value + 225) / 450) + 1 '<== eklenen

    If S1.Range("B22").Value <= 400 Then xB21 = Int((S1.Range("C8").Value + 225) / 400)  '<== eklenen

    S1.Range("B21").Value = xB21 '<== eklenen

---

bu kodlar araya eklenecek
Set S1 = Sheets("Pergole")
'kodların ekleneceği yer
TextBox_Fitil.Text = S1.Range("B21").Value
TextBox_FitilAraOlcu.Text = S1.Range("B22").Value