Soru İki kod birleştirme

[sirkülasyon]

Sub TOPLA()
    Dim S1 As Worksheet
    Dim X As Long, Veri As Double
    Set S1 = Sheets("VERİ")
    For X = 2 To 23
        Veri = S1.Cells(X, "C")
        S1.Cells(X, "L") = S1.Cells(X, "L") + Veri
        Veri = 0
    Next
    Set S1 = Nothing
End Sub
Sub TOPLA1()
    Dim S1 As Worksheet
    Dim X As Long, Veri As Double
    
    Set S1 = Sheets("VERİ")
    For X = 2 To 23
        Veri = S1.Cells(X, "H")
        S1.Cells(X, "M") = S1.Cells(X, "M") + Veri
        Veri = 0
    Next
    Set S1 = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Ustam
Call TOPLA
Call TOPLA1

işlemi yapmadan iki toplama işlemini bir koda nasıl ekleyebilirim?

 

[uzmanamele]

Merhaba
Bu mudur?

Sub TOPLA()

    Dim S1 As Worksheet

    Dim X As Long, Veri As Double

    Set S1 = Sheets("VERİ")

    For X = 2 To 23

        Veri_1 = S1.Cells(X, "C")

        S1.Cells(X, "L") = S1.Cells(X, "L") + Veri_1

        Veri_1 = 0

                Veri_2 = S1.Cells(X, "H")

                S1.Cells(X, "M") = S1.Cells(X, "M") + Veri_2

                Veri_2 = 0

    Next

    Set S1 = Nothing

        MsgBox "İşleminiz tamamlanmıştır.", vbInformation

End Sub

 

[sirkülasyon]

Ellerin dert görmesin ustam. Teşekkür ederim.