Hej!
Det kanske är jag som inte förstår frågan, men om koden fungerar för ett blad men inte för det andra så beror det på att den arbetar med det aktiva bladet eftersom du inte anger något annat blad. Du kan ändra på det genom att specificera med Worksheets("XXXX"). framför vissa instruktioner där XXXX är namnet på ett ark. T.ex.
intLastRow = Worksheets("Budget").Range("A65536").End(xlUp).Row
mvh
Kihlman