İki Kodu Aynı Sayfada nasıl yazabilirim ?

[taskoparan]

1.kod

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b2:c65536]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 2 Then
Target.Offset(0, 1) = Range("B1:B" & [B65536].End(3).Row).Find(Target, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1)
Exit Sub
End If
If Target.Column = 3 Then
Target.Offset(0, -1) = Range("C1:C" & [C65536].End(3).Row).Find(Target, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, -1)
Exit Sub
End If
End Sub


2.kod

Dim con As Object, rs As Object
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sorgu As String, yol As String
On Error Resume Next
If Target.Column = 1 And Target.Value2 <> Empty Then
If Err.Number = 13 Then Exit Sub: Err.Clear

Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

yol = ThisWorkbook.Path & "\diastoklist.xls"
con.Open "provider=microsoft.jet.oledb.4.0;data source = " & yol & ";" & _
"extended properties=""excel 8.0;hdr=yes"""
sorgu = "select * from [Sheet1$] where [ITEM#] like '" & Target.Value & "%'"
rs.Open sorgu, con, 1, 1

Do While Not rs.RecordCount < 0
Target.Offset(0, 1).Value = rs("ÜRÜN ADI")
Target.Offset(0, 2).Value = rs("ADT")
Exit Do
Loop
Else
Exit Sub
End If
If Err Then MsgBox Err.Description & " hatası oluştu "
End Sub

Bu iki kodu tek sayfada kullanmam gerekli İkisini nasıl kullanablirim ?

Ayriyetten örneğin filtrelemeden birsey sectiğimizde gördüğü yerin toplamını nasıl aldırabiliriz bunun için bidaha knu acmıyayım diye buraya sordum.Şimdeden teşekkürler arkadaşlar . . .