Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, Crow as Integer, premaddress
Crow = 0
Application.EnableEvents = False
With Range("m1:q65000")
Set cel = .Find(Range("c5"), , xlValues, xlWhole)
If Not cel Is Nothing Then
premaddress = cel.Address
Do
Range("a" & 10 + Crow) = cel.Offset(, 0)
Range("b" & 10 + Crow) = cel.Offset(, 1)
Range("c" & 10 + Crow) = cel.Offset(, 2)
Range("d" & 10 + Crow) = cel.Offset(, 3)
Range("e" & 10 + Crow) = cel.Offset(, 4)
Range("f" & 10 + Crow) = cel.Offset(, 5)
Crow = Crow + 1
If Range("c5") = "" Then: Range("c5").Activate: Range("a10:f65000").ClearContents: Exit Do
Set cel = .FindNext(cel)
Loop While Not cel Is Nothing And cel.Address <> premaddress
End If
End With
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("m1:q65000")) Is Nothing Then Exit Sub
End Sub