Dynamiczny adres komórki

Witam. Jak zwykle poległem na fundamentach.
Mam problem z odwołaniem do zakresu gdzie mają zostać wklejone dane.
Działający kod wygląda tak:

Application.ScreenUpdating = False
    Worksheets("allM").Visible = True
    Sheets("allM").Select
    Range("T12:AJ45").Select
    Selection.ClearContents
    Range("B12").Select
    Range("B11:R672").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("allM!Criteria"), CopyToRange:=Range("T11:AJ11"), Unique:=True
    Worksheets("allM").Visible = xlSheetVeryHidden
    Application.ScreenUpdating = True
    Sheets("TEST").Select
    Range("ae13").Select

W tej chwili w A13:ah13 stoją dane, które są wynikiem użycia filtra.
Chciałbym aby te dane zostały wklejone jako wartości, a później makro wykonałoby się ponownie i wkleiło dane do A14:AH14 i tak 50 razy.

Acha to nie wszystko. allM.Criteria (kryteria filtra zaawansowanego) to również link do wiersza 13 w arkuszu test, chciałbym aby w następnym kroku był to link do wiersza 14tego itd (zakładam, że będą tam dane wyznaczające wynik, których teraz w załączniku nie ma)...

Próbuję z dim komórka as Range, dim k As integer wplecione do Cell("AE",k)
ale...
Macie jakiś pomysł jak to zapętlić?
Ta godzina już nie sprzyja myśleniu...

Pozdrawiam

[ Dodano: 2008-09-03, 11:44 ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl