Uproszczenie makra przenoszącego wartości w Excelu - sugestie optymalizacji

Witam
Dzięki przede wszystkim pomocy tutaj forumowiczy oraz częściowym nagraniom powstało makro j.n. Zastanawiam się czy są możliwości uproszczenia,. Makro i tak działa bez zarzutów, ale pewnie uposzczone będzie działać szybciej. Będę wdzięczny za wszelkie sugestie

clubs napisał:

Kod: VB.net

Zaloguj się, aby zobaczyć kod

Dzięki wielkie

clubs napisał:

Kod: VB.net

Zaloguj się, aby zobaczyć kod

Nie potrafię zauważyć o co chodzi, ale po uruchomieniu makra pokazuje mi błąd 438 i podświetlone są powyższe linijki kodu. Te linijki wyglądają identycznie jak w pierwowzorze, ale w tamtym nie pokazuje błędu, a tu tak. Podejrzewam więc, że to jest może gdzieś wyżej. Zmieniły sie linijki powyżej, t.j.

ale ja nie widzę tutaj błędu.

zbysiomysio napisał:

ale ja nie widzę tutaj błędu

Usuń kropkę

clubs napisał:

zbysiomysio napisał:

ale ja nie widzę tutaj błędu

Usuń kropkę

Kod: VB.net

Zaloguj się, aby zobaczyć kod

Dzięki wielkie. Takie małe, a tyle znaczy