Thank you, I took out the debug info.

It worked with your file but when I copy and paste the actual data under the Range it now keeps giving me an error and highlighting 'Worksheets(Worksheets.Count).Name = G'