Split data in a column into multiple columns in excel vba

Hi friends....
I want to split the semicolumn separated data in a column which has been imported from .csv file into multiple columns. i.e the data in column M is clients;report;excel in .csv file and when exporting to excel it has to be split into 4columns that is also specified by the user like A,E,R.. so clients has to be placed in A report in E and Excel in R. Please help. i have been trying to solve this from 2weeks..
The code which iam using is:

Please Login or Register  to view this content.

It will be good if you attach a sample excel file, so we can find out whats wrong with your code.