Thank you all,

Mr. Kenneth,

There was an error on "EndNow" after MsgBox, so I changed it to "End Sub" and it work perfectly.

Sorry to bother you more, I would really appreciate if you could change Active Cell, as it is inserting a row wherever cursor is, can't we automate itself to go to the last row of the sheet and run this code?

Thanks Again.