Fixed this by placing "On Error Resume Next" before the line the error was happening on.Alright, i created a whole new module and typed it out myself and it works now, mostly.
It does the job but then at the very end it creates an "extra" sheet and then hits an error on this line:
Sheets.Add(after:=Sheets(Sheets.Count)).Name = Ar(x)
It is the more typical error of "Run-time error 1004. Application-defined or object-defined error"
This honestly isnt a huge deal as i can just delete the extra sheet but it would be great if it's an easy fix
Thank you everyone for your help!! This is going to save me so much time and headache!