Am I missing something ?
Wouldn't this suffice ?
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("E16:I18")) Is Nothing Or Target.Cells.Count > 1 Then
Exit Sub
Else
Range("M1").Value = Target.Value
End If
End Sub