ActiveSheet.Shapes（Application.Caller）.TopLeftCell.Row返回错误的行

I'm using a small macro to add and delete rows in a protected worksheet. For this each line has a "Delete" button. When a new line is added, the last existing line is copied (including the "Delete" button) and then its content is cleared.I'm using a small macro to add and delete rows