Issue with Copying data to a New Sheet After Filtering.

Hi All,

Am facing a Strange issue.I have a ".CSV" File and I Have to Filter the data With a criteria and Copy the Filtered Data into a New sheet.

I have changed the File extension to ".xls" and written the code but stangely it works only once.If i close and reopen the file it does not One more obervation is that When i Saved the File with ".xlsm" format the code works fine.
But my requirement is to have ".xls" extension. Am attaching the file as well ,based on the customer codes provided by end user in " Meta Data " Sheet am filtering and copying into "Filtered data" sheet.

Kindly help me in Resolving this issue.

Many Thanks,
Aparna.