@Nilem

after:=Sheets(Sheets.Count)

is redundant, because that's the default.