Ciao
ma in "Inserimento dati" una data ce le devi pur mettere, altrimenti come si fa a sapere sotto quale data riportare i valori in "Riepilogo".
Questo ti potrebbe tornar utile anche per eventuali rettifiche, cioè metti una data (anche pregressa) e in riepilogo ti verrà aggiornata con l'eventuale variazione.
Comunque, supponendo una data in B1 di "Inserimento dati":
Sub presenze()
Dim wkIns As Worksheet, wkRiep As Worksheet, mData As Variant
Set wkIns = Worksheets("Inserimento dati")
Set wkRiep = Worksheets("Riepilogo")
mData = wkIns.Range("B1")
If mData = "" Then
MsgBox "Manca data"
Exit Sub
End If
With wkRiep.Cells(1, 1).EntireRow
Set c = .Find(mData, LookIn:=xlFormulas, lookat:=xlWhole)
If c Is Nothing Then
MsgBox ("Data non presente in Riepilogo")
Exit Sub
End If
End With
wkIns.Range("B2:B5").Copy Destination:=wkRiep.Cells(2, c.Column)
End Sub saluti