This line of code 
ActiveSheet.Protect
at the top of you macro should be 
ActiveSheet.UnProtect
I'm not sure what you are trying to do. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data.