problem code works in worksheet selection event but not in change event

[abdelfattah]

hello

i have this code works in selection event but not in change event and if is possible amending the code or getting alternative the code select cells or change depend on range ("d11:m22") and show in j23 so i want only this range applies when cell is actived not out side this range

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$j$23" Then
Target.Value = ""
Else
[j23].MergeArea = ActiveCell
End If
End Sub

my data

active cell.xlsm
	D	E	F	G	H	I	J	K	L	M
11	1	2	3	4	5	6	7	8	9	10
12	11	12	13	14	15	16	17	18	19	20
13	21	22	23	24	25	26	27	28	29	30
14	31	32	33	34	35	36	37	38	39	40
15	41	42	43	44	45	46	47	48	49	50
16	140	148	181	182	183	184	185	186	187	188
17	189	190	191	192	193	194	195	196	197	198
18	199	200	201	202	203	204	205	206	207	208
19	209	210	211	212	213	214	215	216	217	218
20	219	220	221	222	223	224	225	226	222	228
21	229	230
22				numbers
23
sheet1

 

[abdelfattah]

unfortunately not successfully when i select cells g23 this is out range (d11:m22) it supposes clear in j23 but it shows text "number" as fill in g23

 

[offthelip]

obviously I don't understand what you want.,

 

[abdelfattah]

yes, you right i can't explain more than for this and it seems i failed reaching my idea to understand what i want overall your codes are very well and the small part is not matter just improve working the code i appreciate your patience and time



best regards,

abdelfattah