Построение оптимальной последовательности операций в коммерческой деятельности

      If (Range("a5") + Range("a6")) <= (Range("c7") + Range("b7")) Then

          Range("a7") = Range("a5") + Range("a6")

          Range("a6").Font.Italic = True

          Else: Range("a7") = Range("c7") + Range("b7")

          Range("b7").Font.Italic = True

      End If

      If (Range("k5") + Range("k6")) <= (Range("m7") + Range("l7")) Then

          Range("k7") = Range("k5") + Range("k6")

          Range("k6").Font.Italic = True

          Else: Range("k7") = Range("m7") + Range("l7")

          Range("l7").Font.Italic = True

      End If

      If (Range("k7") + Range("k8")) <= (Range("m9") + Range("l9")) Then

          Range("k9") = Range("k7") + Range("k8")

          Range("k8").Font.Italic = True

          Else: Range("k9") = Range("m9") + Range("l9")

          Range("l9").Font.Italic = True

      End If

      If (Range("i7") + Range("i8")) <= (Range("k9") + Range("j9")) Then

          Range("i9") = Range("i7") + Range("i8")

          Range("i8").Font.Italic = True

          Else: Range("i9") = Range("k9") + Range("j9")

          Range("j9").Font.Italic = True

      End If

      If (Range("g7") + Range("g8")) <= (Range("i9") + Range("h9")) Then

          Range("g9") = Range("g7") + Range("g8")

          Range("g8").Font.Italic = True

          Else: Range("g9") = Range("i9") + Range("h9")

          Range("h9").Font.Italic = True

      End If

      If (Range("e7") + Range("e8")) <= (Range("g9") + Range("f9")) Then

          Range("e9") = Range("e7") + Range("e8")

          Range("e8").Font.Italic = True

          Else: Range("e9") = Range("g9") + Range("f9")

          Range("f9").Font.Italic = True

      End If

      If (Range("c7") + Range("c8")) <= (Range("e9") + Range("d9")) Then

          Range("c9") = Range("c7") + Range("c8")

          Range("c8").Font.Italic = True

          Else: Range("c9") = Range("e9") + Range("d9")

          Range("d9").Font.Italic = True

      End If

      If (Range("a7") + Range("a8")) <= (Range("c9") + Range("b9")) Then

          Range("a9") = Range("a7") + Range("a8")

          Range("a8").Font.Italic = True

          Else: Range("a9") = Range("c9") + Range("b9")

          Range("b9").Font.Italic = True

      End If

      End Function

      Private Sub CommandButton2_Click()

      TextBox1.Text = "10"

      TextBox2.Text = "8"

       TextBox3.Text = "9"

      TextBox4.Text = "11"

       TextBox5.Text = "13"

       TextBox6.Text = "12"

       TextBox7.Text = "15"

      TextBox8.Text = "14"

       TextBox9.Text = "13"

       TextBox10.Text = "12"

       TextBox11.Text = "11"

       TextBox12.Text = "10"

       TextBox13.Text = "9"

       TextBox14.Text = "12"

      TextBox15.Text = "13"

      TextBox16.Text = "14"

       TextBox17.Text = "15"

       TextBox18.Text = "14"

       TextBox19.Text = "13"

       TextBox21.Text = "11"

       TextBox22.Text = "13"

       TextBox23.Text = "12"

       TextBox24.Text = "14"

       TextBox25.Text = "13"

       TextBox26.Text = "15"

       TextBox20.Text = "10"

       TextBox28.Text = "18"

       TextBox29.Text = "19"

       TextBox30.Text = "20"

       TextBox31.Text = "21"

       TextBox32.Text = "18"

       TextBox27.Text = "19"

       TextBox34.Text = "10"

       TextBox35.Text = "10"

       TextBox36.Text = "13"

       TextBox37.Text = "11"

       TextBox38.Text = "12"

       TextBox39.Text = "14"

       TextBox33.Text = "11"

       TextBox41.Text = "10"

       TextBox42.Text = "10"

       TextBox43.Text = "12"

      TextBox44.Text = "12"

       TextBox45.Text = "13"

       TextBox40.Text = "18"

      TextBox47.Text = "9"

       TextBox48.Text = "10"

       TextBox49.Text = "12"

       TextBox50.Text = "15"

       TextBox51.Text = "13"

      TextBox52.Text = "16"

      TextBox46.Text = "19"

       TextBox54.Text = "13"

       TextBox55.Text = "15"

       TextBox56.Text = "10"

       TextBox57.Text = "14"

      TextBox58.Text = "16"

      TextBox53.Text = "17" 

      End Sub