xB21 = Int((S1.Range("C8").Value - 225) / 400) + 1 '<== eklenen
S1.Range("B21").Value = xB21 '<== eklenen
TextBox_Fitil.Text = S1.Range("B21").Value
TextBox_FitilAraOlcu.Text = S1.Range("B22").Value
kodu aşağıdaki gibi düzenler misiniz?