Datenübernahme in andere Arbeitsmappe

Sub auto_open()
Dim heute As Date
Dim zelle As Range
heute = Fix(Now)
For Each zelle In ActiveSheet.Range("C5:C369")
If zelle.Value = heute Then
zelle.Activate
Exit For
End If
Next zelle
End Sub

Wie aber gelingt es mir, stets die entsprechenden, tagesaktuellen Daten der Spalten E:AA in eine andere Tabelle zu exportieren? Zudem ist vorgesehen, das sich diese Tabelle in einer anderern Arbeitsmappe befindet.
Vielen Dank für Eure Hilfe.
Uwe
PS: Des Rätsels Lösung bitte via VBA, wenn möglich...