'created by acw
Private Sub Worksheet_Change(ByVal Target As Range) 
    Application.EnableEvents = False 
    With Target.Cells(1,1) 
        If Not Intersect(.Cells, Range("b3:b9")) Is Nothing Then 
            Range("b24") = Empty 
            For i = 3 To 9 : txt = txt & Cells(i,"b").Value & "_" : Next 
                For Each r In Range("s3",Cells(3,Columns.Count).End(xlToLeft)) 
                    For i = 0 To 6 : txt2 = txt2 & r.Offset(i).Value & "_" : Next 
                        If txt = txt2 Then 
                            Range("b10").Value = r.Offset(7).Value 
                            Exit For 
                        End If 
                    txt2 = "" 
                Next 
                ElseIf Not Intersect(.Cells,Range("b17:b23")) Is Nothing Then 
                    Range("b24") = Empty 
                    For i = 17 To 23 : txt = txt & Cells(i,"b").Value & "_" : Next 
                        For Each r In Range("s17",Cells(17,Columns.Count).End(xlToLeft)) 
                            For i = 0 To 6 : txt2 = txt2 & r.Offset(i).Value & "_" : Next 
                                If txt = txt2 Then 
                                    Range("b24").VAlue = r.Offset(7).Value 
                                    Exit For 
                                End If
                              txt2 = "" 
                            Next 
                        End If 
                    End With 
                    Application.EnableEvents = True 
                End Sub

thought of sharing with u guys, because i finally got the code for my above question. Thanks for providing any help !