Mencari Nilai Barang

Saya sudah Membuat script untuk mencari nilanya tapi yang menjadi maslah ;
1. jika ada nama barang yang tidak ada dilist muncul nilai yang salah , seharusnya yg muncul 0

2. jika malah no 1 selesai , ingin dijumlakan dengan harga ( dala posisi tetap )

Terima kasih

Sub cumacontoh(ByVal target As Range)
Dim sh As Worksheet, sel As Range, xsel As Range
Set sh = Sheets("Tahun " & Cells(1, target.Column))

n = Cells(2, target.Column)

On Error Resume Next
For Each sel In Range("A3:A10")
    With sh
        For Each xsel In .Range("B2:K2")
            dari = Left(xsel, InStr(1, xsel.Value, "s/d") - 1) * 1
            sampai = Mid(xsel, InStr(1, xsel.Value, "s/d") + 3, 100) * 1
            If n >= dari And n <= sampai Then
                r = .Range("A:A").Find(sel, , xlValues, xlWhole).Row
                c = xsel.Column
                Cells(sel.Row, target.Column) = .Cells(r, c)
                Exit For
            End If
        Next
    End With
Next
Err.Clear
End Sub

oh ya , bagaiman cara attch file nya ya ?