Hjælp til VBA

Hej er der en venlig sjæl der kan hjælpe mig med min VBA?
jeg er en nybegynder inden for vba og har brug for en der kan se min kode igennem og sige hvor eller hvad der er galt.
jeg har lagt den kode jeg har op jeg bruger selve problemet er at i den userform jeg har lavet til fomålet der kommer kun en brøkdel af det data der er i kilde kolonnen (rør typer) og der kommer ikke noget i (rør dim).
håber der er en der kan hjælpe mig
på forhånd tak
Dennis

Dim kilderækker As Integer
Private Sub cb_søg_click()
Dim ræk As Integer, rørtype As Double, røtdim As String
Dim ix As Integer
      With Sheets("rør typer")
          rørtyper = Me.Com_rørtype
          rørdim = Me.Com_rørdim
         
          For ræk = 2 To kildeArkRækker
              If rørtype = .Range("B" & ræk) And rørdim = .Range("C" & ræk) > 0 Then
                  Range("A" & Sheets("tilbudsark").xRæk) = rørtype
                  Range("B" & Sheets("tilbudsark").xRæk) = rørdim
                 
                  Range("D" & Sheets("tilbudsark").xRæk) = .Range("E" & ræk) 'pris pr. meter
            End If
        Next ræk
        Columns("E:E").EntireColumn.AutoFit
    End With
End Sub
Private Sub Cb_søg_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

Rem XXXXXXXXXXXXXXXXXXXXXXXXXXX
Private Sub Com_rørtype_Change()
    Me.Com_rørdim.Clear
'    Me.Lb_model.Clear
   
    hentrørdim Me.Com_rørtype
End Sub
Private Sub Com_rørdim_Change()
'    Me.Lb_model.Clear
   
End Sub

Rem XXXXXXXXXXXXXXXXXXXXXXXXXXX
Private Sub UserForm_activate()
    houseKeeping
End Sub
Private Sub houseKeeping()
    rydListBokse
    hentrørtype
End Sub
Private Sub rydListBokse()
    With Me
        Me.Com_rørtype.Clear
        Me.Com_rørdim.Clear
'        Me.Lb_model.
    End With
End Sub
Private Sub hentrørtype()
Dim ræk As Integer, rørtype As Double, rørtypePulje As String, tabel As Variant
Dim ix As Integer
    With Sheets(5)
        rørtypePulje = ""
        kildeArkRækker = .Cells(Rows.Count, "B").End(xlUp).Row
       
        For ræk = 2 To kildeArkRækker
            rørtyper = .Range("B" & ræk)
            If InStr(rørtypePulje, rørtype) = 0 Then
                rørtypePulje = rørtypePulje & rørtyper & ";"
            End If
        Next ræk
    End With
   
    tabel = Split(rørtypePulje, ";")
   
    For ix = 0 To UBound(tabel) - 1
        Me.Com_rørtype.AddItem tabel(ix)
    Next ix
   
    Me.Com_rørtype.DropDown
End Sub
Rem ===========================
Private Sub hentrørdim(rørtyper)
Dim ræk As Integer, tS As String, tSPulje As String, tabel As Variant
Dim ix As Integer
    With Sheets(5)
        For ræk = 2 To kildeArkRækker
            tS = .Range("C" & ræk)
            If InStr(tSPulje, tS) = 0 And .Range("B" & ræk) = CStr(rørtyper) Then
                tSPulje = tSPulje & tS & ";"
            End If
        Next ræk
    End With
   
    tabel = Split(tSPulje, ";")
   
    For ix = 0 To UBound(tabel) - 1
        Me.Com_rørdim.AddItem tabel(ix)
    Next ix
   
    Me.Com_rørdim.DropDown
End Sub