Hi Holger,
Excellent! This much I expect to speed up the task. It's working fine as per my desire. However I didn't understand the meaning of 'z' in this line:

x = .Range("o8:Z" & .Cells(Rows.Count, "p").End(xlUp).Row + 1).Value

What does this 'z' represents here?

It's just for my knowledge. The problem is solved.

Thank you for teaching and solving my problem with helpful tips to develop my skill.

Mukesh