Can anyone help me to shorten this vba code??

This is really a case that justifies the use of a UserForm and structured table for data storage.
You will see in the attached example the passage of data to and from the sheet is dealt with by 6 or 7 lines of code.
By setting out your table and its headers relative to the textboxes and their labels it is possible to loop through them to deal with naming/storing etc.
However if you decide to stick with your on-sheet form get rid of your merged cells, they are 'bad news' when data handling.
torachan.