Hi Nilem, thanks a lot to answer my question.

The code is looking good, just that a few more step to final tune. Not sure below listed possible to happen or not, please advice.

1. If sheet2 A2:A10 has data, possible to add in a code to prevent skip row? Meaning that if i key in a data in A15, it will automatically key into A11 instead?
2. I found the code you provided are not allow to delete the data on Col Bx:Gx when Ax has a valid data. Possible to make it only Col A is allow to key in data?

Besides that if i would like to make the range wider, am i just need to adjust the figure under? :
" If Not r Is Nothing Then
With Target.Resize(, 20)
.Value = r.Resize(, 20).Value: .Locked = True"