Çalışma kitabındaki ComboBox ile sayfaya veri çekme?

[s.savas]

Merhaba arkadaşlar. Arşivimdeki programlardan derleyerek iş gereği kullanmak için yeni bir program yapmak istedim.
Form kullanmadan sade ve basit bir arayüzle excell sayfasında istenen şeyleri yapmaya çalışyorum.

Private Sub Worksheet_Activate()
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
Set k = Sheets("ASM LİSTESİ")
For i = 3 To k.Cells(65536, "b").End(3).Row
If WorksheetFunction.CountIf(k.Range("b2:b" & i), k.Range("b" & i)) = 1 Then
ComboBox1.AddItem k.Cells(i, "b").Value
End If
Next

End Sub

Private Sub ComboBox1_Change()
Dim STR As Long, SYF As Worksheet, LST As New Collection, HCR As Range
Set SYF = Sheets("ASM LİSTESİ")
If ComboBox1.ListIndex < 0 Then Exit Sub
On Error Resume Next
For STR = 2 To SYF.Range("b" & Rows.Count).End(xlUp).Row
If SYF.Cells(STR, "b") = ComboBox1.Value Then
LST.Add SYF.Cells(STR, "c"), CStr(SYF.Cells(STR, "c"))
End If
Next
ComboBox2.Clear
ComboBox3.Clear
For Each HCR In LST
ComboBox2.AddItem HCR
Next
End Sub

Private Sub ComboBox2_Change()
Dim STR As Long, SYF As Worksheet, LST As New Collection, HCR As Range
Set SYF = Sheets("ASM LİSTESİ")
If ComboBox1.ListIndex < 0 Then Exit Sub
On Error Resume Next
For STR = 2 To SYF.Range("b" & Rows.Count).End(xlUp).Row
If SYF.Cells(STR, "b") = ComboBox1.Value And SYF.Cells(STR, "c") = ComboBox2.Value Then
LST.Add SYF.Cells(STR, "e"), CStr(SYF.Cells(STR, "e"))
End If
Next
ComboBox3.Clear
For Each HCR In LST
ComboBox3.AddItem HCR
Next
End Sub

Burada;
ComboBox2 den birim seçilince İZLEM sekmesinde;
1- B6 hücresine ComboBox1 deki ilçe adını yazsın.
2- C6 hücresine ComboBox2 deli birimin adını yazsın.
3- D6 hücresine C5 deki birimin ÇKYS kodunu ASM LİSTESİ isimli sayfanın D sütunundan bularak yazsın.
4- ComboBox3 te listelenen isimleri E6 hücresinden başlayarak alt alta yazsın.
5- E6 hücresinden itibaren yazılan birimlerin karşılık verilerini (F,G,H,I sütunları) ASM LİSTESİ isimli sayfanın (F,G,H,I) sütunlarından bularak karşılarına yazılmasını istiyorum.
Detaylar ekte sunulmuştur. Müsait olan bir arkdadaşın ilgisi ricasıyla.
http://dosya.co/b5nvqgjbff94/İZLEME_DEĞERLENDİRME_TAKİP_DOSYASI.xls.html