Quindi si tratta di due "cartelle di lavoro", non "fogli".
Il sistema piu' semplice:
-In una cella libera, es Z1, inserisci la formula
- Codice: Seleziona tutto
=MAX(SE(A1:A10000<OGGI();A1:A10000;""))
-Poi modifichi la macro in questo modo
- Codice: Seleziona tutto
Windows("Giornaliero").Activate
Sheets("QualeFoglio???").Select '<<<
LR=Cells(Rows.count,1).End(xlup).Row 'AAA
Range("A:A").Select ' MEEE
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Range("Z1").value 'MMM
Range("C2:C" & LR).Select 'MMM
Selection.Copy
Windows("Consuntivo").Activate
Sheets("QualeFoglio???").Select '<<<
Cells(rows.count,1).End(xlup).Offset(1,0).Select 'AAA
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Legenda: AAA=Aggiunta, MMM=Modificata, MEEE=Errata in partenza e modificata, <<<=Righe da completare (valori a me ignoti)
Ciao