Prova a modificare la riga cosi'

xlsFile.Sheets("Allegato pag." & ContaPagine).Move After:=xlsFile.Sheets(ContaPagine)