Inviare mail aziendale con allegato file pdf personalizzato

Ciao ragazzi,
in allegato troverete il mio file per che gestisce la reperibilità del mio personale.
Il file è formato da 3 fogli, il primo contiene uno schema per la gestione delle date di reperibilità, il secondo l'elenco del personale ed il 3 un riepilogativo settimanale (destinato all'archivio).
Ora viene il bello...ma dato che non ho le conoscenze VBA per creare ciò che mi serve chiedo aiuto a voi.
In pratica, dopo aver inserito le date di reperibilità (foglio 1) vorrei che me le ripostasse in automatico al riepilogativo (foglio 3) e ad inizio settimana poterle spedire ad "ognuno" dei miei collaboratori con allegato le giornate di reperibilità a ciasun assegnato.
Ho cercato qualche codice su internet ma fanno tutti riferimento ad un unico allegato da inserire in automatico, ame invece servirebbe da allegare le sole date riferite al solo collaboratore (questione di privacy)
Mi aiutate per favore.
Grazie mille a tutti

Ciao
si capisce poco in quanto il tuo file contiene fogli che non corrispondono alla descrizione da te fatta.

Ciò premesso, spiega meglio e soprattutto fai un esempio di quello che hai e del risultato che vuoi e in quali fogli (anche scritto a mano)

saluti

Buongiorno dodo47,
forse mi sono spiegato male,
cmq ho bisogno di riportare le date delle reperibilità di ciascun dipendente segnate con una "X" del primo foglio (reperibilità) nelle celle corrispondenti del terzo foglio (sheet1).
I dati del personale sono riportati nel foglio 2 (personale)...
spero di essere stato chiaro....grazie
cmq allego altro file come esempio

Ciao dodo47,
ho trovato questo codice nel vostro sito:
Sub presenze()
Dim wkIns As Worksheet, wkRiep As Worksheet, mData As Variant
Set wkIns = Worksheets("Presenze")
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("b1:b5").Copy Destination:=wkRiep.Cells(2, c.Column)
End Sub
Non so se potrebbe essere una base di partenza da adattare al mio foglio di lavoro.
Grazie

Ciao ragazzi,
ho cercato ancora un codice che mi permettesse di inviare le mail personalizzate per ogni dipendente...ma non ci sono riuscito...in effetti "attendevo" un suggerimento dal vostro forum...
mi aiutate per favore