Macro to Split Data Onto Separate Sheets

Thanks for putting that together. Unfortunately, I"m getting an error after Company 3. I tried debugging and it pointed to this line:

"Sheets.Add(after:=Sheets(Sheets.Count)).Name = e"