VBA - Optymalizacja długo wykonującego się makra

Witam,
Napisałem właśnie swoje pierwsze makro, ale jak widać żaden ze mnie programista. Makro działa długo, a na razie tylko 2 pliki podpiąłem pod nie. Czy jest ktoś w stanie pomóc mi tak, żeby działało szybciej, a przy tym żebym się połapał o co chodzi? Chodzi tu generalnie o to, żeby kopiowało z każdego pliku i każdego arkusza w każdym pliku wszystkie wpisane tam dane i przenosiło do jednego innego pliku który się nazywa podsumowanie, a potem jak poprzenosi to sortuje. Nie wiem też tylko czemu jak w sortowaniu przy ActiveWorkbook.Worksheets("offene").Sort.SortFields.Add Key:=Range("A2") zostawie A2 to sortuje ładnie według numerów które sa w kolumnie A, jesli jednak chciałbym wg dat które są w kolumnie G i zmieniam tam na G2 to już nie działa.


Będę wdzięczny jeśli uda się coś z tym zrobić. Pozdrawiam

Będzie łatwiej jak załączysz przykładowy plik (usuń wrażliwe dane, byleby układ i typ danych był zachowany), bo tak to na pierwszy rzut oka to widzę kilka zbędnych select'ów.

W załączeniu plik podsumowanie w którym na 3 arkuszu powinno wykonać, się makro oraz jeden z plików z którego będzie kopiować wartości.
Myślałem żeby tam zamiast zakresów do 1000 używać jakoś xldown do zaznaczania i kopiować tyle wartości ile potrzeba, ale nie wiem jak to zrobić. Będę wdzięczny za jakąś pomoc... i z tym sortowaniem to tez nie wiem o co chodzi:)
Pozdrawiam

Hasełko zapodasz, czy mamy "hakierować"?

aaa.... zapomniałem że tam jest:P hasło : xxx

Czy dane ze wszystkich, czy tylko z wybranych plików z folderu "U:\PL2\Verteilung NEW\" mają być wzięte do zestawienia zbiorczego?

ze wszystkich plików, będize ich 26, teraz są tylko 2 podpięte

I co da się tutaj coś zadziałać?

Niewiele, dlatego że najdłużej trwa otwieranie plików. Wywalając wszelkie zbędne select, copy-paste, itp - wychodzi coś takiego

Dzięki wielkie, o to chodziło, skróciłeś mi wykonywanie makra z ponad 30 minut do 40 sekund...