Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("L2")) Is Nothing Then
  Application.EnableEvents = False
Dim iLastRow As Long
Dim FoundCell As Range
Dim FAdr As String
    Columns("M").ClearContents
    Set FoundCell = Columns(10).Find(Target, , xlValues, xlPart)
     If Not FoundCell Is Nothing Then
      FAdr = FoundCell.Address
      Do
        iLastRow = Cells(Rows.Count, "M").End(xlUp).Row + 1
        Cells(iLastRow, "M") = Cells(FoundCell.Row, "J")
       Set FoundCell = Columns(10).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
 End If
  Application.EnableEvents = True
End Sub