
Public Function cost(list As String, piece As String, kind As String) As String

    If list = "0" Then
    cost = "0"
     
        ElseIf list = "4/8*1.5*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H14").Value * Worksheets("Ref_Table").Range("I14").Value
         ElseIf list = "4/8*1.5*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H14").Value * Worksheets("Ref_Table").Range("J14").Value
        ElseIf list = "4/8*1.5*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H14").Value * Worksheets("Ref_Table").Range("K14").Value
        
        ElseIf list = "4/8*1.75*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H15").Value * Worksheets("Ref_Table").Range("I15").Value
         ElseIf list = "4/8*1.75*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H15").Value * Worksheets("Ref_Table").Range("J15").Value
        ElseIf list = "4/8*1.75*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H15").Value * Worksheets("Ref_Table").Range("K15").Value
        
        ElseIf list = "4/8*2*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H16").Value * Worksheets("Ref_Table").Range("I16").Value
         ElseIf list = "4/8*2*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H16").Value * Worksheets("Ref_Table").Range("J16").Value
        ElseIf list = "4/8*2*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H16").Value * Worksheets("Ref_Table").Range("K16").Value
        
        ElseIf list = "4/8*2.5*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H17").Value * Worksheets("Ref_Table").Range("I17").Value
         ElseIf list = "4/8*2.5*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H17").Value * Worksheets("Ref_Table").Range("J17").Value
        ElseIf list = "4/8*2.5*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H17").Value * Worksheets("Ref_Table").Range("K17").Value
        
        ElseIf list = "4/8*3*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H18").Value * Worksheets("Ref_Table").Range("I18").Value
         ElseIf list = "4/8*3*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H18").Value * Worksheets("Ref_Table").Range("J18").Value
        ElseIf list = "4/8*3*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H18").Value * Worksheets("Ref_Table").Range("K18").Value
        
        ElseIf list = "4/8*4*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H19").Value * Worksheets("Ref_Table").Range("I19").Value
         ElseIf list = "4/8*4*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H19").Value * Worksheets("Ref_Table").Range("J19").Value
        ElseIf list = "4/8*4*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H19").Value * Worksheets("Ref_Table").Range("K19").Value
        
        ElseIf list = "4/8*1.5*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H20").Value * Worksheets("Ref_Table").Range("I20").Value
         ElseIf list = "4/8*1.5*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H20").Value * Worksheets("Ref_Table").Range("J20").Value
        ElseIf list = "4/8*1.5*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H20").Value * Worksheets("Ref_Table").Range("K20").Value
        
        ElseIf list = "4/8*1.75*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H21").Value * Worksheets("Ref_Table").Range("I21").Value
         ElseIf list = "4/8*1.75*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H21").Value * Worksheets("Ref_Table").Range("J21").Value
        ElseIf list = "4/8*1.75*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H21").Value * Worksheets("Ref_Table").Range("K21").Value
        
        ElseIf list = "4/8*2*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H22").Value * Worksheets("Ref_Table").Range("I22").Value
         ElseIf list = "4/8*2*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H22").Value * Worksheets("Ref_Table").Range("J22").Value
        ElseIf list = "4/8*2*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H22").Value * Worksheets("Ref_Table").Range("K22").Value
        
        ElseIf list = "4/8*2.5*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H23").Value * Worksheets("Ref_Table").Range("I23").Value
         ElseIf list = "4/8*2.5*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H23").Value * Worksheets("Ref_Table").Range("J23").Value
        ElseIf list = "4/8*2.5*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H23").Value * Worksheets("Ref_Table").Range("K23").Value
        
        ElseIf list = "4/8*3*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H24").Value * Worksheets("Ref_Table").Range("I24").Value
         ElseIf list = "4/8*3*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H24").Value * Worksheets("Ref_Table").Range("J24").Value
        ElseIf list = "4/8*3*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H24").Value * Worksheets("Ref_Table").Range("K24").Value
        
        ElseIf list = "4/8*4*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H25").Value * Worksheets("Ref_Table").Range("I25").Value
         ElseIf list = "4/8*4*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H25").Value * Worksheets("Ref_Table").Range("J25").Value
        ElseIf list = "4/8*4*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H25").Value * Worksheets("Ref_Table").Range("K25").Value
        
        ElseIf list = "4/8*1.5*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H26").Value * Worksheets("Ref_Table").Range("I26").Value
         ElseIf list = "4/8*1.5*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H26").Value * Worksheets("Ref_Table").Range("J26").Value
        ElseIf list = "4/8*1.5*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H26").Value * Worksheets("Ref_Table").Range("K26").Value
        
        ElseIf list = "4/8*1.75*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H27").Value * Worksheets("Ref_Table").Range("I27").Value
         ElseIf list = "4/8*1.75*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H27").Value * Worksheets("Ref_Table").Range("J27").Value
        ElseIf list = "4/8*1.75*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H27").Value * Worksheets("Ref_Table").Range("K27").Value
        
        ElseIf list = "4/8*2*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H28").Value * Worksheets("Ref_Table").Range("I28").Value
         ElseIf list = "4/8*2*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H28").Value * Worksheets("Ref_Table").Range("J28").Value
        ElseIf list = "4/8*2*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H28").Value * Worksheets("Ref_Table").Range("K28").Value
        
        ElseIf list = "4/8*2.5*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H29").Value * Worksheets("Ref_Table").Range("I29").Value
         ElseIf list = "4/8*2.5*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H29").Value * Worksheets("Ref_Table").Range("J29").Value
        ElseIf list = "4/8*2.5*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H29").Value * Worksheets("Ref_Table").Range("K29").Value
        
        ElseIf list = "4/8*3*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H30").Value * Worksheets("Ref_Table").Range("I30").Value
         ElseIf list = "4/8*3*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H30").Value * Worksheets("Ref_Table").Range("J30").Value
        ElseIf list = "4/8*3*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H30").Value * Worksheets("Ref_Table").Range("K30").Value
        
        ElseIf list = "4/8*4*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H31").Value * Worksheets("Ref_Table").Range("I31").Value
         ElseIf list = "4/8*4*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H31").Value * Worksheets("Ref_Table").Range("J31").Value
        ElseIf list = "4/8*4*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H31").Value * Worksheets("Ref_Table").Range("K31").Value
        
        ElseIf list = "4/8*1.5*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H32").Value * Worksheets("Ref_Table").Range("I32").Value
         ElseIf list = "4/8*1.5*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H32").Value * Worksheets("Ref_Table").Range("J32").Value
        ElseIf list = "4/8*1.5*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H32").Value * Worksheets("Ref_Table").Range("K32").Value
        
        ElseIf list = "4/8*1.75*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H33").Value * Worksheets("Ref_Table").Range("I33").Value
         ElseIf list = "4/8*1.75*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H33").Value * Worksheets("Ref_Table").Range("J33").Value
        ElseIf list = "4/8*1.75*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H33").Value * Worksheets("Ref_Table").Range("K33").Value
        
        ElseIf list = "4/8*2*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H34").Value * Worksheets("Ref_Table").Range("I34").Value
         ElseIf list = "4/8*2*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H34").Value * Worksheets("Ref_Table").Range("J34").Value
        ElseIf list = "4/8*2*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H34").Value * Worksheets("Ref_Table").Range("K34").Value
        
        ElseIf list = "4/8*2.5*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H35").Value * Worksheets("Ref_Table").Range("I35").Value
         ElseIf list = "4/8*2.5*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H35").Value * Worksheets("Ref_Table").Range("J35").Value
        ElseIf list = "4/8*2.5*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H35").Value * Worksheets("Ref_Table").Range("K35").Value
        
        ElseIf list = "4/8*3*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H36").Value * Worksheets("Ref_Table").Range("I36").Value
         ElseIf list = "4/8*3*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H36").Value * Worksheets("Ref_Table").Range("J36").Value
        ElseIf list = "4/8*3*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H36").Value * Worksheets("Ref_Table").Range("K36").Value
        
        ElseIf list = "4/8*4*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H37").Value * Worksheets("Ref_Table").Range("I37").Value
         ElseIf list = "4/8*4*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H37").Value * Worksheets("Ref_Table").Range("J37").Value
        ElseIf list = "4/8*4*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H37").Value * Worksheets("Ref_Table").Range("K37").Value
        
        ElseIf list = "4/8*1.5*130_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H38").Value * Worksheets("Ref_Table").Range("I38").Value
         ElseIf list = "4/8*1.5*130_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H38").Value * Worksheets("Ref_Table").Range("J38").Value
        ElseIf list = "4/8*1.5*130_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H38").Value * Worksheets("Ref_Table").Range("K38").Value
        
        ElseIf list = "4/8*1.75*130_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H39").Value * Worksheets("Ref_Table").Range("I39").Value
         ElseIf list = "4/8*1.75*130_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H39").Value * Worksheets("Ref_Table").Range("J39").Value
        ElseIf list = "4/8*1.75*130_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H39").Value * Worksheets("Ref_Table").Range("K39").Value
        
        ElseIf list = "4/8*1.5*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H14").Value * Worksheets("Ref_Table").Range("I14").Value
         ElseIf list = "4/8*1.5*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H14").Value * Worksheets("Ref_Table").Range("J14").Value
        ElseIf list = "4/8*1.5*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H14").Value * Worksheets("Ref_Table").Range("K14").Value
        
        ElseIf list = "4/8*1.75*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H15").Value * Worksheets("Ref_Table").Range("I15").Value
         ElseIf list = "4/8*1.75*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H15").Value * Worksheets("Ref_Table").Range("J15").Value
        ElseIf list = "4/8*1.75*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H15").Value * Worksheets("Ref_Table").Range("K15").Value
        
        ElseIf list = "4/8*2*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H16").Value * Worksheets("Ref_Table").Range("I16").Value
         ElseIf list = "4/8*2*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H16").Value * Worksheets("Ref_Table").Range("J16").Value
        ElseIf list = "4/8*2*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H16").Value * Worksheets("Ref_Table").Range("K16").Value
        
        ElseIf list = "4/8*2.5*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H17").Value * Worksheets("Ref_Table").Range("I17").Value
         ElseIf list = "4/8*2.5*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H17").Value * Worksheets("Ref_Table").Range("J17").Value
        ElseIf list = "4/8*2.5*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H17").Value * Worksheets("Ref_Table").Range("K17").Value
        
        ElseIf list = "4/8*3*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H18").Value * Worksheets("Ref_Table").Range("I18").Value
         ElseIf list = "4/8*3*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H18").Value * Worksheets("Ref_Table").Range("J18").Value
        ElseIf list = "4/8*3*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H18").Value * Worksheets("Ref_Table").Range("K18").Value
        
        ElseIf list = "4/8*4*100_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H19").Value * Worksheets("Ref_Table").Range("I19").Value
         ElseIf list = "4/8*4*100_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H19").Value * Worksheets("Ref_Table").Range("J19").Value
        ElseIf list = "4/8*4*100_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H19").Value * Worksheets("Ref_Table").Range("K19").Value
        
        ElseIf list = "4/8*1.5*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H20").Value * Worksheets("Ref_Table").Range("I20").Value
         ElseIf list = "4/8*1.5*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H20").Value * Worksheets("Ref_Table").Range("J20").Value
        ElseIf list = "4/8*1.5*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H20").Value * Worksheets("Ref_Table").Range("K20").Value
        
        ElseIf list = "4/8*1.75*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H21").Value * Worksheets("Ref_Table").Range("I21").Value
         ElseIf list = "4/8*1.75*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H21").Value * Worksheets("Ref_Table").Range("J21").Value
        ElseIf list = "4/8*1.75*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H21").Value * Worksheets("Ref_Table").Range("K21").Value
        
        ElseIf list = "4/8*2*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H22").Value * Worksheets("Ref_Table").Range("I22").Value
         ElseIf list = "4/8*2*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H22").Value * Worksheets("Ref_Table").Range("J22").Value
        ElseIf list = "4/8*2*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H22").Value * Worksheets("Ref_Table").Range("K22").Value
        
        ElseIf list = "4/8*2.5*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H23").Value * Worksheets("Ref_Table").Range("I23").Value
         ElseIf list = "4/8*2.5*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H23").Value * Worksheets("Ref_Table").Range("J23").Value
        ElseIf list = "4/8*2.5*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H23").Value * Worksheets("Ref_Table").Range("K23").Value
        
        ElseIf list = "4/8*3*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H24").Value * Worksheets("Ref_Table").Range("I24").Value
         ElseIf list = "4/8*3*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H24").Value * Worksheets("Ref_Table").Range("J24").Value
        ElseIf list = "4/8*3*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H24").Value * Worksheets("Ref_Table").Range("K24").Value
        
        ElseIf list = "4/8*4*110_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H25").Value * Worksheets("Ref_Table").Range("I25").Value
         ElseIf list = "4/8*4*110_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H25").Value * Worksheets("Ref_Table").Range("J25").Value
        ElseIf list = "4/8*4*110_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H25").Value * Worksheets("Ref_Table").Range("K25").Value
        
        ElseIf list = "4/8*1.5*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H26").Value * Worksheets("Ref_Table").Range("I26").Value
         ElseIf list = "4/8*1.5*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H26").Value * Worksheets("Ref_Table").Range("J26").Value
        ElseIf list = "4/8*1.5*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H26").Value * Worksheets("Ref_Table").Range("K26").Value
        
        ElseIf list = "4/8*1.75*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H27").Value * Worksheets("Ref_Table").Range("I27").Value
         ElseIf list = "4/8*1.75*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H27").Value * Worksheets("Ref_Table").Range("J27").Value
        ElseIf list = "4/8*1.75*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H27").Value * Worksheets("Ref_Table").Range("K27").Value
        
        ElseIf list = "4/8*2*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H28").Value * Worksheets("Ref_Table").Range("I28").Value
         ElseIf list = "4/8*2*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H28").Value * Worksheets("Ref_Table").Range("J28").Value
        ElseIf list = "4/8*2*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H28").Value * Worksheets("Ref_Table").Range("K28").Value
        
        ElseIf list = "4/8*2.5*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H29").Value * Worksheets("Ref_Table").Range("I29").Value
         ElseIf list = "4/8*2.5*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H29").Value * Worksheets("Ref_Table").Range("J29").Value
        ElseIf list = "4/8*2.5*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H29").Value * Worksheets("Ref_Table").Range("K29").Value
        
        ElseIf list = "4/8*3*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H30").Value * Worksheets("Ref_Table").Range("I30").Value
         ElseIf list = "4/8*3*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H30").Value * Worksheets("Ref_Table").Range("J30").Value
        ElseIf list = "4/8*3*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H30").Value * Worksheets("Ref_Table").Range("K30").Value
        
        ElseIf list = "4/8*4*100_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H31").Value * Worksheets("Ref_Table").Range("I31").Value
         ElseIf list = "4/8*4*100_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H31").Value * Worksheets("Ref_Table").Range("J31").Value
        ElseIf list = "4/8*4*100_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H31").Value * Worksheets("Ref_Table").Range("K31").Value
        
        ElseIf list = "4/8*1.5*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H32").Value * Worksheets("Ref_Table").Range("I32").Value
         ElseIf list = "4/8*1.5*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H32").Value * Worksheets("Ref_Table").Range("J32").Value
        ElseIf list = "4/8*1.5*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H32").Value * Worksheets("Ref_Table").Range("K32").Value
        
        ElseIf list = "4/8*1.75*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H33").Value * Worksheets("Ref_Table").Range("I33").Value
         ElseIf list = "4/8*1.75*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H33").Value * Worksheets("Ref_Table").Range("J33").Value
        ElseIf list = "4/8*1.75*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H33").Value * Worksheets("Ref_Table").Range("K33").Value
        
        ElseIf list = "4/8*2*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H34").Value * Worksheets("Ref_Table").Range("I34").Value
         ElseIf list = "4/8*2*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H34").Value * Worksheets("Ref_Table").Range("J34").Value
        ElseIf list = "4/8*2*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H34").Value * Worksheets("Ref_Table").Range("K34").Value
        
        ElseIf list = "4/8*2.5*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H35").Value * Worksheets("Ref_Table").Range("I35").Value
         ElseIf list = "4/8*2.5*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H35").Value * Worksheets("Ref_Table").Range("J35").Value
        ElseIf list = "4/8*2.5*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H35").Value * Worksheets("Ref_Table").Range("K35").Value
        
        ElseIf list = "4/8*3*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H36").Value * Worksheets("Ref_Table").Range("I36").Value
         ElseIf list = "4/8*3*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H36").Value * Worksheets("Ref_Table").Range("J36").Value
        ElseIf list = "4/8*3*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H36").Value * Worksheets("Ref_Table").Range("K36").Value
        
        ElseIf list = "4/8*4*110_24mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H37").Value * Worksheets("Ref_Table").Range("I37").Value
         ElseIf list = "4/8*4*110_24mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H37").Value * Worksheets("Ref_Table").Range("J37").Value
        ElseIf list = "4/8*4*110_24mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H37").Value * Worksheets("Ref_Table").Range("K37").Value
        
        ElseIf list = "4/8*1.5*130_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H38").Value * Worksheets("Ref_Table").Range("I38").Value
         ElseIf list = "4/8*1.5*130_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H38").Value * Worksheets("Ref_Table").Range("J38").Value
        ElseIf list = "4/8*1.5*130_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H38").Value * Worksheets("Ref_Table").Range("K38").Value
        
        ElseIf list = "4/8*1.75*130_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H39").Value * Worksheets("Ref_Table").Range("I39").Value
         ElseIf list = "4/8*1.75*130_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H39").Value * Worksheets("Ref_Table").Range("J39").Value
        ElseIf list = "4/8*1.75*130_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H39").Value * Worksheets("Ref_Table").Range("K39").Value
        
        ElseIf list = "4/8*2*130_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H40").Value * Worksheets("Ref_Table").Range("I40").Value
         ElseIf list = "4/8*2*130_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H40").Value * Worksheets("Ref_Table").Range("J40").Value
        ElseIf list = "4/8*2*130_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H40").Value * Worksheets("Ref_Table").Range("K40").Value
        
        ElseIf list = "4/8*2.5*130_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H41").Value * Worksheets("Ref_Table").Range("I41").Value
         ElseIf list = "4/8*2.5*130_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H41").Value * Worksheets("Ref_Table").Range("J41").Value
        ElseIf list = "4/8*2.5*130_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H41").Value * Worksheets("Ref_Table").Range("K41").Value
        
        ElseIf list = "4/8*3*130_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H42").Value * Worksheets("Ref_Table").Range("I42").Value
         ElseIf list = "4/8*3*130_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H42").Value * Worksheets("Ref_Table").Range("J42").Value
        ElseIf list = "4/8*3*130_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H42").Value * Worksheets("Ref_Table").Range("K42").Value
        
        ElseIf list = "4/8*4*130_22,23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H43").Value * Worksheets("Ref_Table").Range("I43").Value
         ElseIf list = "4/8*4*130_22,23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H43").Value * Worksheets("Ref_Table").Range("J43").Value
        ElseIf list = "4/8*4*130_22,23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H43").Value * Worksheets("Ref_Table").Range("K43").Value
        
       
        
        ElseIf list = "4/8*1.5*100_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H50").Value * Worksheets("Ref_Table").Range("I50").Value
         ElseIf list = "4/8*1.5*100_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H50").Value * Worksheets("Ref_Table").Range("J50").Value
        ElseIf list = "4/8*1.5*100_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H50").Value * Worksheets("Ref_Table").Range("K50").Value
        
        ElseIf list = "4/8*1.75*100_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H51").Value * Worksheets("Ref_Table").Range("I51").Value
         ElseIf list = "4/8*1.75*100_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H51").Value * Worksheets("Ref_Table").Range("J51").Value
        ElseIf list = "4/8*1.75*100_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H51").Value * Worksheets("Ref_Table").Range("K51").Value
        
        ElseIf list = "4/8*2*100_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H52").Value * Worksheets("Ref_Table").Range("I52").Value
         ElseIf list = "4/8*2*100_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H52").Value * Worksheets("Ref_Table").Range("J52").Value
        ElseIf list = "4/8*2*100_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H52").Value * Worksheets("Ref_Table").Range("K52").Value
        
        ElseIf list = "4/8*2.5*100_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H53").Value * Worksheets("Ref_Table").Range("I53").Value
         ElseIf list = "4/8*2.5*100_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H53").Value * Worksheets("Ref_Table").Range("J53").Value
        ElseIf list = "4/8*2.5*100_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H53").Value * Worksheets("Ref_Table").Range("K53").Value
        
        ElseIf list = "4/8*3*100_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H54").Value * Worksheets("Ref_Table").Range("I54").Value
         ElseIf list = "4/8*3*100_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H54").Value * Worksheets("Ref_Table").Range("J54").Value
        ElseIf list = "4/8*3*100_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H54").Value * Worksheets("Ref_Table").Range("K54").Value
        
        ElseIf list = "4/8*4*100_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H55").Value * Worksheets("Ref_Table").Range("I55").Value
         ElseIf list = "4/8*4*100_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H55").Value * Worksheets("Ref_Table").Range("J55").Value
        ElseIf list = "4/8*4*100_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H55").Value * Worksheets("Ref_Table").Range("K55").Value
     
        ElseIf list = "4/8*1.5*110_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H56").Value * Worksheets("Ref_Table").Range("I56").Value
         ElseIf list = "4/8*1.5*110_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H56").Value * Worksheets("Ref_Table").Range("J56").Value
        ElseIf list = "4/8*1.5*110_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H56").Value * Worksheets("Ref_Table").Range("K56").Value
        
        ElseIf list = "4/8*1.75*110_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H57").Value * Worksheets("Ref_Table").Range("I57").Value
         ElseIf list = "4/8*1.75*110_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H57").Value * Worksheets("Ref_Table").Range("J57").Value
        ElseIf list = "4/8*1.75*110_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H57").Value * Worksheets("Ref_Table").Range("K57").Value
        
        ElseIf list = "4/8*2*110_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H58").Value * Worksheets("Ref_Table").Range("I58").Value
         ElseIf list = "4/8*2*110_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H58").Value * Worksheets("Ref_Table").Range("J58").Value
        ElseIf list = "4/8*2*110_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H58").Value * Worksheets("Ref_Table").Range("K58").Value
        
        ElseIf list = "4/8*2.5*110_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H59").Value * Worksheets("Ref_Table").Range("I59").Value
         ElseIf list = "4/8*2.5*110_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H59").Value * Worksheets("Ref_Table").Range("J59").Value
        ElseIf list = "4/8*2.5*110_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H59").Value * Worksheets("Ref_Table").Range("K59").Value
        
        ElseIf list = "4/8*3*110_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H60").Value * Worksheets("Ref_Table").Range("I60").Value
         ElseIf list = "4/8*3*110_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H60").Value * Worksheets("Ref_Table").Range("J60").Value
        ElseIf list = "4/8*3*110_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H60").Value * Worksheets("Ref_Table").Range("K60").Value
        
        ElseIf list = "4/8*4*110_25mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H61").Value * Worksheets("Ref_Table").Range("I61").Value
         ElseIf list = "4/8*4*110_25mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H61").Value * Worksheets("Ref_Table").Range("J61").Value
        ElseIf list = "4/8*4*110_25mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H61").Value * Worksheets("Ref_Table").Range("K61").Value
        
        
        
        ElseIf list = "5/8*1.5*100_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H74").Value * Worksheets("Ref_Table").Range("I74").Value
         ElseIf list = "5/8*1.5*100_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H74").Value * Worksheets("Ref_Table").Range("J74").Value
        ElseIf list = "5/8*1.5*100_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H74").Value * Worksheets("Ref_Table").Range("K74").Value
        
        ElseIf list = "5/8*1.75*100_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H75").Value * Worksheets("Ref_Table").Range("I75").Value
         ElseIf list = "5/8*1.75*100_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H75").Value * Worksheets("Ref_Table").Range("J75").Value
        ElseIf list = "5/8*1.75*100_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H75").Value * Worksheets("Ref_Table").Range("K75").Value
        
        ElseIf list = "5/8*2*100_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H76").Value * Worksheets("Ref_Table").Range("I76").Value
         ElseIf list = "5/8*2*100_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H76").Value * Worksheets("Ref_Table").Range("J76").Value
        ElseIf list = "5/8*2*100_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H76").Value * Worksheets("Ref_Table").Range("K76").Value
        
        ElseIf list = "5/8*2.5*100_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H77").Value * Worksheets("Ref_Table").Range("I77").Value
         ElseIf list = "5/8*2.5*100_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H77").Value * Worksheets("Ref_Table").Range("J77").Value
        ElseIf list = "5/8*2.5*100_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H77").Value * Worksheets("Ref_Table").Range("K77").Value
        
        ElseIf list = "5/8*3*100_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H78").Value * Worksheets("Ref_Table").Range("I78").Value
         ElseIf list = "5/8*3*100_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H78").Value * Worksheets("Ref_Table").Range("J78").Value
        ElseIf list = "5/8*3*100_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H78").Value * Worksheets("Ref_Table").Range("K78").Value
        
        ElseIf list = "5/8*4*100_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H79").Value * Worksheets("Ref_Table").Range("I79").Value
         ElseIf list = "5/8*4*100_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H79").Value * Worksheets("Ref_Table").Range("J79").Value
        ElseIf list = "5/8*4*100_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H79").Value * Worksheets("Ref_Table").Range("K79").Value
        
        ElseIf list = "5/8*1.5*110_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H80").Value * Worksheets("Ref_Table").Range("I80").Value
         ElseIf list = "5/8*1.5*110_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H80").Value * Worksheets("Ref_Table").Range("J80").Value
        ElseIf list = "5/8*1.5*110_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H80").Value * Worksheets("Ref_Table").Range("K80").Value
        
        ElseIf list = "5/8*1.75*110_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H81").Value * Worksheets("Ref_Table").Range("I81").Value
         ElseIf list = "5/8*1.75*110_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H81").Value * Worksheets("Ref_Table").Range("J81").Value
        ElseIf list = "5/8*1.75*110_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H81").Value * Worksheets("Ref_Table").Range("K81").Value
        
        ElseIf list = "5/8*2*110_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H82").Value * Worksheets("Ref_Table").Range("I82").Value
         ElseIf list = "5/8*2*110_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H82").Value * Worksheets("Ref_Table").Range("J82").Value
        ElseIf list = "5/8*2*110_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H82").Value * Worksheets("Ref_Table").Range("K82").Value
        
        ElseIf list = "5/8*2.5*110_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H83").Value * Worksheets("Ref_Table").Range("I83").Value
         ElseIf list = "5/8*2.5*110_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H83").Value * Worksheets("Ref_Table").Range("J83").Value
        ElseIf list = "5/8*2.5*110_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H83").Value * Worksheets("Ref_Table").Range("K83").Value
        
        ElseIf list = "5/8*3*110_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H84").Value * Worksheets("Ref_Table").Range("I84").Value
         ElseIf list = "5/8*3*110_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H84").Value * Worksheets("Ref_Table").Range("J84").Value
        ElseIf list = "5/8*3*110_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H84").Value * Worksheets("Ref_Table").Range("K84").Value
        
        ElseIf list = "5/8*4*110_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H85").Value * Worksheets("Ref_Table").Range("I85").Value
         ElseIf list = "5/8*4*110_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H85").Value * Worksheets("Ref_Table").Range("J85").Value
        ElseIf list = "5/8*4*110_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H85").Value * Worksheets("Ref_Table").Range("K85").Value
        
        ElseIf list = "6/8*1.5*100_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H86").Value * Worksheets("Ref_Table").Range("I86").Value
         ElseIf list = "6/8*1.5*100_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H86").Value * Worksheets("Ref_Table").Range("J86").Value
        ElseIf list = "6/8*1.5*100_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H86").Value * Worksheets("Ref_Table").Range("K86").Value
        
        ElseIf list = "6/8*1.75*100_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H87").Value * Worksheets("Ref_Table").Range("I87").Value
         ElseIf list = "6/8*1.75*100_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H87").Value * Worksheets("Ref_Table").Range("J87").Value
        ElseIf list = "6/8*1.75*100_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H87").Value * Worksheets("Ref_Table").Range("K87").Value
        
        ElseIf list = "6/8*2*100_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H88").Value * Worksheets("Ref_Table").Range("I88").Value
         ElseIf list = "6/8*2*100_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H88").Value * Worksheets("Ref_Table").Range("J88").Value
        ElseIf list = "6/8*2*100_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H88").Value * Worksheets("Ref_Table").Range("K88").Value
        
        ElseIf list = "6/8*2.5*100_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H89").Value * Worksheets("Ref_Table").Range("I89").Value
         ElseIf list = "6/8*2.5*100_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H89").Value * Worksheets("Ref_Table").Range("J89").Value
        ElseIf list = "6/8*2.5*100_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H89").Value * Worksheets("Ref_Table").Range("K89").Value
        
        ElseIf list = "6/8*3*100_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H90").Value * Worksheets("Ref_Table").Range("I90").Value
         ElseIf list = "6/8*3*100_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H90").Value * Worksheets("Ref_Table").Range("J90").Value
        ElseIf list = "6/8*3*100_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H90").Value * Worksheets("Ref_Table").Range("K90").Value
        
        ElseIf list = "6/8*4*100_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H91").Value * Worksheets("Ref_Table").Range("I91").Value
         ElseIf list = "6/8*4*100_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H91").Value * Worksheets("Ref_Table").Range("J91").Value
        ElseIf list = "6/8*4*100_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H91").Value * Worksheets("Ref_Table").Range("K91").Value
        
        ElseIf list = "6/8*5*100_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H92").Value * Worksheets("Ref_Table").Range("I92").Value
         ElseIf list = "6/8*5*100_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H92").Value * Worksheets("Ref_Table").Range("J92").Value
        ElseIf list = "6/8*5*100_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H92").Value * Worksheets("Ref_Table").Range("K92").Value

        ElseIf list = "6/8*1.5*110_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H93").Value * Worksheets("Ref_Table").Range("I93").Value
         ElseIf list = "6/8*1.5*110_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H93").Value * Worksheets("Ref_Table").Range("J93").Value
        ElseIf list = "6/8*1.5*110_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H93").Value * Worksheets("Ref_Table").Range("K93").Value
        
        ElseIf list = "6/8*1.75*110_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H94").Value * Worksheets("Ref_Table").Range("I94").Value
         ElseIf list = "6/8*1.75*110_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H94").Value * Worksheets("Ref_Table").Range("J94").Value
        ElseIf list = "6/8*1.75*110_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H94").Value * Worksheets("Ref_Table").Range("K94").Value
        
        ElseIf list = "6/8*2*110_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H95").Value * Worksheets("Ref_Table").Range("I95").Value
         ElseIf list = "6/8*2*110_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H95").Value * Worksheets("Ref_Table").Range("J95").Value
        ElseIf list = "6/8*2*110_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H95").Value * Worksheets("Ref_Table").Range("K95").Value
        
        ElseIf list = "6/8*2.5*110_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H96").Value * Worksheets("Ref_Table").Range("I96").Value
         ElseIf list = "6/8*2.5*110_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H96").Value * Worksheets("Ref_Table").Range("J96").Value
        ElseIf list = "6/8*2.5*110_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H96").Value * Worksheets("Ref_Table").Range("K96").Value
        
        ElseIf list = "6/8*3*110_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H97").Value * Worksheets("Ref_Table").Range("I97").Value
         ElseIf list = "6/8*3*110_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H97").Value * Worksheets("Ref_Table").Range("J97").Value
        ElseIf list = "6/8*3*110_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H97").Value * Worksheets("Ref_Table").Range("K97").Value
        
        ElseIf list = "6/8*4*110_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H98").Value * Worksheets("Ref_Table").Range("I98").Value
         ElseIf list = "6/8*4*110_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H98").Value * Worksheets("Ref_Table").Range("J98").Value
        ElseIf list = "6/8*4*110_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H98").Value * Worksheets("Ref_Table").Range("K98").Value
        
        ElseIf list = "6/8*5*110_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H99").Value * Worksheets("Ref_Table").Range("I99").Value
         ElseIf list = "6/8*5*110_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H99").Value * Worksheets("Ref_Table").Range("J99").Value
        ElseIf list = "6/8*5*110_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H99").Value * Worksheets("Ref_Table").Range("K99").Value
        
        ElseIf list = "5/8*1.5*130_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H100").Value * Worksheets("Ref_Table").Range("I100").Value
         ElseIf list = "5/8*1.5*130_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H100").Value * Worksheets("Ref_Table").Range("J100").Value
        ElseIf list = "5/8*1.5*130_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H100").Value * Worksheets("Ref_Table").Range("K100").Value
        
        ElseIf list = "5/8*1.75*130_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H101").Value * Worksheets("Ref_Table").Range("I101").Value
         ElseIf list = "5/8*1.75*130_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H101").Value * Worksheets("Ref_Table").Range("J101").Value
        ElseIf list = "5/8*1.75*130_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H101").Value * Worksheets("Ref_Table").Range("K101").Value
        
        ElseIf list = "5/8*2*130_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H102").Value * Worksheets("Ref_Table").Range("I102").Value
         ElseIf list = "5/8*2*130_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H102").Value * Worksheets("Ref_Table").Range("J102").Value
        ElseIf list = "5/8*2*130_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H102").Value * Worksheets("Ref_Table").Range("K102").Value
        
        ElseIf list = "5/8*2.5*130_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H103").Value * Worksheets("Ref_Table").Range("I103").Value
         ElseIf list = "5/8*2.5*130_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H103").Value * Worksheets("Ref_Table").Range("J103").Value
        ElseIf list = "5/8*2.5*130_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H103").Value * Worksheets("Ref_Table").Range("K103").Value
        
        ElseIf list = "5/8*3*130_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H104").Value * Worksheets("Ref_Table").Range("I104").Value
         ElseIf list = "5/8*3*130_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H104").Value * Worksheets("Ref_Table").Range("J104").Value
        ElseIf list = "5/8*3*130_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H104").Value * Worksheets("Ref_Table").Range("K104").Value
        
        ElseIf list = "5/8*4*130_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H105").Value * Worksheets("Ref_Table").Range("I105").Value
         ElseIf list = "5/8*4*130_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H105").Value * Worksheets("Ref_Table").Range("J105").Value
        ElseIf list = "5/8*4*130_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H105").Value * Worksheets("Ref_Table").Range("K105").Value
        
        ElseIf list = "6/8*1.5*130_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H106").Value * Worksheets("Ref_Table").Range("I106").Value
         ElseIf list = "6/8*1.5*130_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H106").Value * Worksheets("Ref_Table").Range("J106").Value
        ElseIf list = "6/8*1.5*130_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H106").Value * Worksheets("Ref_Table").Range("K106").Value
        
        ElseIf list = "6/8*1.75*130_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H107").Value * Worksheets("Ref_Table").Range("I107").Value
         ElseIf list = "6/8*1.75*130_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H107").Value * Worksheets("Ref_Table").Range("J107").Value
        ElseIf list = "6/8*1.75*130_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H107").Value * Worksheets("Ref_Table").Range("K107").Value
        
        ElseIf list = "6/8*2*130_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H108").Value * Worksheets("Ref_Table").Range("I108").Value
         ElseIf list = "6/8*2*130_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H108").Value * Worksheets("Ref_Table").Range("J108").Value
        ElseIf list = "6/8*2*130_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H108").Value * Worksheets("Ref_Table").Range("K108").Value
        
        ElseIf list = "6/8*2.5*130_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H109").Value * Worksheets("Ref_Table").Range("I109").Value
         ElseIf list = "6/8*2.5*130_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H109").Value * Worksheets("Ref_Table").Range("J109").Value
        ElseIf list = "6/8*2.5*130_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H109").Value * Worksheets("Ref_Table").Range("K109").Value
        
        ElseIf list = "6/8*3*130_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H110").Value * Worksheets("Ref_Table").Range("I110").Value
         ElseIf list = "6/8*3*130_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H110").Value * Worksheets("Ref_Table").Range("J110").Value
        ElseIf list = "6/8*3*130_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H110").Value * Worksheets("Ref_Table").Range("K110").Value
        
        ElseIf list = "6/8*4*130_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H111").Value * Worksheets("Ref_Table").Range("I111").Value
         ElseIf list = "6/8*4*130_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H111").Value * Worksheets("Ref_Table").Range("J111").Value
        ElseIf list = "6/8*4*130_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H111").Value * Worksheets("Ref_Table").Range("K111").Value
        
        ElseIf list = "6/8*5*130_33mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H112").Value * Worksheets("Ref_Table").Range("I112").Value
         ElseIf list = "6/8*5*130_33mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H112").Value * Worksheets("Ref_Table").Range("J112").Value
        ElseIf list = "6/8*5*130_33mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H112").Value * Worksheets("Ref_Table").Range("K112").Value

         ElseIf list = "4/8*1.5*100_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H117").Value * Worksheets("Ref_Table").Range("I117").Value
         ElseIf list = "4/8*1.5*100_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H117").Value * Worksheets("Ref_Table").Range("J117").Value
        ElseIf list = "4/8*1.5*100_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H117").Value * Worksheets("Ref_Table").Range("K117").Value
        
        ElseIf list = "4/8*1.75*100_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H118").Value * Worksheets("Ref_Table").Range("I118").Value
         ElseIf list = "4/8*1.75*100_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H118").Value * Worksheets("Ref_Table").Range("J118").Value
        ElseIf list = "4/8*1.75*100_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H118").Value * Worksheets("Ref_Table").Range("K118").Value
        
        ElseIf list = "4/8*2*100_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H119").Value * Worksheets("Ref_Table").Range("I119").Value
         ElseIf list = "4/8*2*100_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H119").Value * Worksheets("Ref_Table").Range("J119").Value
        ElseIf list = "4/8*2*100_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H119").Value * Worksheets("Ref_Table").Range("K119").Value
        
        ElseIf list = "4/8*2.5*100_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H120").Value * Worksheets("Ref_Table").Range("I120").Value
         ElseIf list = "4/8*2.5*100_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H120").Value * Worksheets("Ref_Table").Range("J120").Value
        ElseIf list = "4/8*2.5*100_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H120").Value * Worksheets("Ref_Table").Range("K120").Value
        
        ElseIf list = "4/8*3*100_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H121").Value * Worksheets("Ref_Table").Range("I121").Value
         ElseIf list = "4/8*3*100_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H121").Value * Worksheets("Ref_Table").Range("J121").Value
        ElseIf list = "4/8*3*100_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H121").Value * Worksheets("Ref_Table").Range("K121").Value
        
        ElseIf list = "4/8*4*100_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H122").Value * Worksheets("Ref_Table").Range("I122").Value
         ElseIf list = "4/8*4*100_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H122").Value * Worksheets("Ref_Table").Range("J122").Value
        ElseIf list = "4/8*4*100_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H122").Value * Worksheets("Ref_Table").Range("K122").Value
        
        ElseIf list = "4/8*1.5*110_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H123").Value * Worksheets("Ref_Table").Range("I123").Value
         ElseIf list = "4/8*1.5*110_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H123").Value * Worksheets("Ref_Table").Range("J123").Value
        ElseIf list = "4/8*1.5*110_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H123").Value * Worksheets("Ref_Table").Range("K123").Value
        
        ElseIf list = "4/8*1.75*110_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H124").Value * Worksheets("Ref_Table").Range("I124").Value
         ElseIf list = "4/8*1.75*110_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H124").Value * Worksheets("Ref_Table").Range("J124").Value
        ElseIf list = "4/8*1.75*110_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H124").Value * Worksheets("Ref_Table").Range("K124").Value
        
        ElseIf list = "4/8*2*110_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H125").Value * Worksheets("Ref_Table").Range("I125").Value
         ElseIf list = "4/8*2*110_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H125").Value * Worksheets("Ref_Table").Range("J125").Value
        ElseIf list = "4/8*2*110_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H125").Value * Worksheets("Ref_Table").Range("K125").Value
        
        ElseIf list = "4/8*2.5*110_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H126").Value * Worksheets("Ref_Table").Range("I126").Value
         ElseIf list = "4/8*2.5*110_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H126").Value * Worksheets("Ref_Table").Range("J126").Value
        ElseIf list = "4/8*2.5*110_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H126").Value * Worksheets("Ref_Table").Range("K126").Value
        
        ElseIf list = "4/8*3*110_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H127").Value * Worksheets("Ref_Table").Range("I127").Value
         ElseIf list = "4/8*3*110_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H127").Value * Worksheets("Ref_Table").Range("J127").Value
        ElseIf list = "4/8*3*110_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H127").Value * Worksheets("Ref_Table").Range("K127").Value
        
        ElseIf list = "4/8*4*110_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H128").Value * Worksheets("Ref_Table").Range("I128").Value
         ElseIf list = "4/8*4*110_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H128").Value * Worksheets("Ref_Table").Range("J128").Value
        ElseIf list = "4/8*4*110_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H128").Value * Worksheets("Ref_Table").Range("K128").Value
        
        ElseIf list = "4/8*1.5*90_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H129").Value * Worksheets("Ref_Table").Range("I129").Value
         ElseIf list = "4/8*1.5*90_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H129").Value * Worksheets("Ref_Table").Range("J129").Value
        ElseIf list = "4/8*1.5*90_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H129").Value * Worksheets("Ref_Table").Range("K129").Value
        
        ElseIf list = "4/8*1.75*90_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H130").Value * Worksheets("Ref_Table").Range("I130").Value
         ElseIf list = "4/8*1.75*90_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H130").Value * Worksheets("Ref_Table").Range("J130").Value
        ElseIf list = "4/8*1.75*90_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H130").Value * Worksheets("Ref_Table").Range("K130").Value
        
        ElseIf list = "4/8*2*90_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H131").Value * Worksheets("Ref_Table").Range("I131").Value
         ElseIf list = "4/8*2*90_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H131").Value * Worksheets("Ref_Table").Range("J131").Value
        ElseIf list = "4/8*2*90_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H131").Value * Worksheets("Ref_Table").Range("K131").Value
        
        ElseIf list = "4/8*2.5*90_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H132").Value * Worksheets("Ref_Table").Range("I132").Value
         ElseIf list = "4/8*2.5*90_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H132").Value * Worksheets("Ref_Table").Range("J132").Value
        ElseIf list = "4/8*2.5*90_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H132").Value * Worksheets("Ref_Table").Range("K132").Value
        
        ElseIf list = "4/8*3*90_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H133").Value * Worksheets("Ref_Table").Range("I133").Value
         ElseIf list = "4/8*3*90_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H133").Value * Worksheets("Ref_Table").Range("J133").Value
        ElseIf list = "4/8*3*90_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H133").Value * Worksheets("Ref_Table").Range("K133").Value
        
        ElseIf list = "4/8*4*90_23mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H134").Value * Worksheets("Ref_Table").Range("I134").Value
         ElseIf list = "4/8*4*90_23mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H134").Value * Worksheets("Ref_Table").Range("J134").Value
        ElseIf list = "4/8*4*90_23mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H134").Value * Worksheets("Ref_Table").Range("K134").Value

        ElseIf list = "7/8*1.75*100_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H135").Value * Worksheets("Ref_Table").Range("I135").Value
         ElseIf list = "7/8*1.75*100_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H135").Value * Worksheets("Ref_Table").Range("J135").Value
        ElseIf list = "7/8*1.75*100_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H135").Value * Worksheets("Ref_Table").Range("K135").Value
        
        ElseIf list = "7/8*2*100_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H136").Value * Worksheets("Ref_Table").Range("I136").Value
         ElseIf list = "7/8*2*100_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H136").Value * Worksheets("Ref_Table").Range("J136").Value
        ElseIf list = "7/8*2*100_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H136").Value * Worksheets("Ref_Table").Range("K136").Value
        
        ElseIf list = "7/8*2.5*100_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H137").Value * Worksheets("Ref_Table").Range("I137").Value
         ElseIf list = "7/8*2.5*100_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H137").Value * Worksheets("Ref_Table").Range("J137").Value
        ElseIf list = "7/8*2.5*100_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H137").Value * Worksheets("Ref_Table").Range("K137").Value
        
        ElseIf list = "7/8*3*100_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H138").Value * Worksheets("Ref_Table").Range("I138").Value
         ElseIf list = "7/8*3*100_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H138").Value * Worksheets("Ref_Table").Range("J138").Value
        ElseIf list = "7/8*3*100_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H138").Value * Worksheets("Ref_Table").Range("K138").Value
        
        ElseIf list = "7/8*4*100_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H139").Value * Worksheets("Ref_Table").Range("I139").Value
         ElseIf list = "7/8*4*100_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H139").Value * Worksheets("Ref_Table").Range("J139").Value
        ElseIf list = "7/8*4*100_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H139").Value * Worksheets("Ref_Table").Range("K139").Value
        
        ElseIf list = "7/8*1.75*110_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H140").Value * Worksheets("Ref_Table").Range("I140").Value
         ElseIf list = "7/8*1.75*110_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H140").Value * Worksheets("Ref_Table").Range("J140").Value
        ElseIf list = "7/8*1.75*110_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H140").Value * Worksheets("Ref_Table").Range("K140").Value
        
        ElseIf list = "7/8*2*110_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H141").Value * Worksheets("Ref_Table").Range("I141").Value
         ElseIf list = "7/8*2*110_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H141").Value * Worksheets("Ref_Table").Range("J141").Value
        ElseIf list = "7/8*2*110_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H141").Value * Worksheets("Ref_Table").Range("K141").Value
        
        ElseIf list = "7/8*2.5*110_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H142").Value * Worksheets("Ref_Table").Range("I142").Value
         ElseIf list = "7/8*2.5*110_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H142").Value * Worksheets("Ref_Table").Range("J142").Value
        ElseIf list = "7/8*2.5*110_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H142").Value * Worksheets("Ref_Table").Range("K142").Value
        
        ElseIf list = "7/8*3*110_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H143").Value * Worksheets("Ref_Table").Range("I143").Value
         ElseIf list = "7/8*3*110_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H143").Value * Worksheets("Ref_Table").Range("J143").Value
        ElseIf list = "7/8*3*110_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H143").Value * Worksheets("Ref_Table").Range("K143").Value
        
        ElseIf list = "7/8*4*110_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H144").Value * Worksheets("Ref_Table").Range("I144").Value
         ElseIf list = "7/8*4*110_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H144").Value * Worksheets("Ref_Table").Range("J144").Value
        ElseIf list = "7/8*4*110_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H144").Value * Worksheets("Ref_Table").Range("K144").Value
        
          ElseIf list = "5/8*1.5*90_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H145").Value * Worksheets("Ref_Table").Range("I145").Value
         ElseIf list = "5/8*1.5*90_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H145").Value * Worksheets("Ref_Table").Range("J145").Value
        ElseIf list = "5/8*1.5*90_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H145").Value * Worksheets("Ref_Table").Range("K145").Value
        
        ElseIf list = "5/8*1.75*90_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H146").Value * Worksheets("Ref_Table").Range("I146").Value
         ElseIf list = "5/8*1.75*90_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H146").Value * Worksheets("Ref_Table").Range("J146").Value
        ElseIf list = "5/8*1.75*90_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H146").Value * Worksheets("Ref_Table").Range("K146").Value
        
        ElseIf list = "5/8*2*90_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H147").Value * Worksheets("Ref_Table").Range("I147").Value
         ElseIf list = "5/8*2*90_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H147").Value * Worksheets("Ref_Table").Range("J147").Value
        ElseIf list = "5/8*2*90_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H147").Value * Worksheets("Ref_Table").Range("K147").Value
        
        ElseIf list = "5/8*2.5*90_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H148").Value * Worksheets("Ref_Table").Range("I148").Value
         ElseIf list = "5/8*2.5*90_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H148").Value * Worksheets("Ref_Table").Range("J148").Value
        ElseIf list = "5/8*2.5*90_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H148").Value * Worksheets("Ref_Table").Range("K148").Value
        
        ElseIf list = "5/8*3*90_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H149").Value * Worksheets("Ref_Table").Range("I149").Value
         ElseIf list = "5/8*3*90_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H149").Value * Worksheets("Ref_Table").Range("J149").Value
        ElseIf list = "5/8*3*90_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H149").Value * Worksheets("Ref_Table").Range("K149").Value
        
        ElseIf list = "5/8*4*90_31mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H150").Value * Worksheets("Ref_Table").Range("I150").Value
         ElseIf list = "5/8*4*90_31mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H150").Value * Worksheets("Ref_Table").Range("J150").Value
        ElseIf list = "5/8*4*90_31mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H150").Value * Worksheets("Ref_Table").Range("K150").Value
        
                ElseIf list = "7/8*1.75*90_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H151").Value * Worksheets("Ref_Table").Range("I151").Value
         ElseIf list = "7/8*1.75*90_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H151").Value * Worksheets("Ref_Table").Range("J151").Value
        ElseIf list = "7/8*1.75*90_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H151").Value * Worksheets("Ref_Table").Range("K151").Value
        
        ElseIf list = "7/8*2*90_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H152").Value * Worksheets("Ref_Table").Range("I152").Value
         ElseIf list = "7/8*2*90_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H152").Value * Worksheets("Ref_Table").Range("J152").Value
        ElseIf list = "7/8*2*90_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H152").Value * Worksheets("Ref_Table").Range("K152").Value
        
        ElseIf list = "7/8*2.5*90_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H153").Value * Worksheets("Ref_Table").Range("I153").Value
         ElseIf list = "7/8*2.5*90_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H153").Value * Worksheets("Ref_Table").Range("J153").Value
        ElseIf list = "7/8*2.5*90_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H153").Value * Worksheets("Ref_Table").Range("K153").Value
        
        ElseIf list = "7/8*3*90_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H154").Value * Worksheets("Ref_Table").Range("I154").Value
         ElseIf list = "7/8*3*90_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H154").Value * Worksheets("Ref_Table").Range("J154").Value
        ElseIf list = "7/8*3*90_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H154").Value * Worksheets("Ref_Table").Range("K154").Value
        
        ElseIf list = "7/8*4*90_35mm" And kind = "????????" Then
        cost = Worksheets("Ref_Table").Range("H155").Value * Worksheets("Ref_Table").Range("I155").Value
         ElseIf list = "7/8*4*90_35mm" And kind = "?????????" Then
        cost = Worksheets("Ref_Table").Range("H155").Value * Worksheets("Ref_Table").Range("J155").Value
        ElseIf list = "7/8*4*90_35mm" And kind = "????????????" Then
        cost = Worksheets("Ref_Table").Range("H155").Value * Worksheets("Ref_Table").Range("K155").Value
        
        
     ElseIf list = "0" And kind = "????????" Then
    cost = 0
     ElseIf list = "0" And kind = "?????????" Then
     cost = 0
     ElseIf list = "0" And kind = "????????????" Then
     cost = 0
     End If
End Function
