Scusa ma tu riempi correttamente cosa ?

dopo Set foglioExcel = cartExcel.Sheets("Lun")
prova a inserire cartExcel.Sheets("Lun").Activate

o foglioExcel.Activate

E fallo anche per lo sheet "Mar".

Tieni l'applicazione Excel visibile e vedi se ti 'riempie' anche lo sheet "Mar".