1. In your Elseif you have column 4, is that right? -in If it is 3.

2. Maybe just a typo in Elseif "MISCELLANEOUS" or in your column 4 there is no such word.

3. Did you give your variable "lastcell" a value in "For cellCount = 1 To lastcell"?