Ogolne okreslenie ostatniego niepustego wiersza dla duzej ilosci skoroszytow

Witam,

Mam do napisania makro, które będzie kopiować dane z pewnego arkusza (nazwa arkusza nie zmienia się, ilość danych również) z dużej ilości plików o zmiennej nazwie (liczba skoroszytów może się zmieniać). Pierwszy problem polega na określeniu ostatniego niepustego wiersza w każdym z tym plików (określenie kolumn nie jest konieczne gdyż ich liczba jest stała). Poniższe makro działa na zawężonym obszarze dla "i" i "j" - kopiuje zawartość jednej zdefiniowanej komórki. Drugi problem polega gdy chcę tą określoną komórkę zmienić na Cells(i,j), wtedy wyrzuca błąd NAME.

1. W ten sposób znajdujesz pierwszy wolny wiersz, a nie ostatni wypełniony (+1)
2. Nie możesz (chyba) wpisywać wartości (.Value) z =, możesz do pola .Formula.
3. Wydaje się, że plik nie jest otwarty. Może dlatego jest błąd.
4. Nazwa jest z gatunku "pokrętne", ja takich unikam. Jedna rzecz to to co masz w narzędziu a inna to co prezentujesz użytkownikom. Nie musi być 1:1.