Trovare valore in tabella e restituire i valori di riferimento

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b2")) Is Nothing Then
Dim val As Double
Dim intervallo As Range
Dim rng As Range
val = Range("B2").Value
With Sheets("Foglio1").Range("c6:h13")
Set rng = .Find(What:=val, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not rng Is Nothing Then
                Range("j12").Value = Cells(rng.Row, "C").Value
                Range("k12").Value = Cells(6, rng.Column).Value
            End If
End With
End If
End Sub