ab aktiver Zelle markieren

Sub gesamt ()
dim i as integer
dim datop as variant
'mappen über dialog markieren und öffnen und letzte aktive zelle in Auswertung suchen
i=0
chdrive "D:\"
chdir ".........."
datop=application.getopenfilename("Excel-Dateien(*.xls),*.xls", multiselect:=true)
if is array(datop) then
for i=lbound(datop) to ubound(datop)
workbooks.open datop(i)
with sheets("auswertung")
.activate
.range("a65536").end(xlup).select
--bis hierher klappt es wunderbar, aber dann komme ich einfach nicht mehr weiter--
ich möchte dann von der aktivten Zelle aus den Bereich bis Spalte E und rauf bis Zeile 2  _
kopieren und die Kopie dann in die Gesamtdatei übertragen. Die Datei wieder schließen und in der nächsten Datei kopiern und übertragen usw.
next i
end if
End Sub