Makrolar da birleştirme

[sirkülasyon]

[B][U]Birinci Makro[/U][/B]
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As Range, Son As Long
    Son = Rows.Count
    Set Alan = Union(Range("G7:G" & Son), Range("J7:J" & Son), Range("L7:L" & Son), Range("Q7:Q" & Son), Range("S7:S" & Son), Range("T7:T" & Son), Range("U7:U" & Son))
    If Intersect(Target, Alan) Is Nothing Then
    On Error Resume Next
    
    Cells(Target.Row, "K") = Cells(Target.Row, "G") * Cells(Target.Row, "J")
    Cells(Target.Row, "M") = Cells(Target.Row, "K") * Cells(Target.Row, "L") / 100
    Cells(Target.Row, "N") = Cells(Target.Row, "K") + Cells(Target.Row, "M")
    Cells(Target.Row, "P") = (Cells(Target.Row, "K") * Cells(Target.Row, "L") / 100) / 10 * 5
    Cells(Target.Row, "O") = Cells(Target.Row, "K") * Sheets("hesap").Range("C5")
    Cells(Target.Row, "R") = Cells(Target.Row, "BA") * Cells(Target.Row, "Q") / 1000
    Cells(Target.Row, "V") = Cells(Target.Row, "O") + Cells(Target.Row, "P") + Cells(Target.Row, "R") + Cells(Target.Row, "S") + Cells(Target.Row, "T") + Cells(Target.Row, "U")
    Cells(Target.Row, "H") = Cells(Target.Row, "N") - Cells(Target.Row, "V")
    End If



[B][U]İkinci Makro[/U][/B]
B7:B200 arasında çift tıklama ile 
ElseIf Not Intersect(Target, Range("C3")) Is Nothing Then
Call CommandButton3
Call CommandButton4
Call CommandButton5
Call CommandButton6
Call CommandButton7
Call CommandButton8
Call CommandButton9
End If
End Sub

Yukarıda yer alan iki kodu birbirine ekleme yapabilmem için yardımcı olabilir misiniz?