Data Sorting to New sheet of specific column

Dear Members,

Kindly guide me in below mentioned sorting code.
I want to specify column from which data need to sorted and copy to other sheet.

I need to sort data contain in column A to I.

Code used in Excel are as below

Please Login or Register  to view this content.

Above code soft data as per criteria specified in column 4. that is perfect me. I just want that it should copy data from A to I column.
As i want to add Macro button & My Details ( My detail cells i want to lock) after column I.

Right now if i lock column code giving error.
I am newbies to macro.
I found this code over internet and it work for me what i wanted to do. But want to do some modification in it.

Expert Kindly give your comments on it.