Zeilenende eine Spalte mit VBA bestimmen

[Lycaner]

Hallo,

ich habe folgendes Problem. Ich habe in erstem Tabellenblatt eine Spalte mit Daten. In dem zweiten Tabellenblatt habe ich mit Macroaufzeichnungen einige Funktionen in der ersten Zeile eingegeben. Jetzt möchte ich diese Zeile mit der Funktionen soweit nach unten ziehen, wie es die Zeilen im ersten Tabellenblatt gibt.

Selection.AutoFill Destination:=Range("A1:F50"), Type:=xlFillDefault ( diese Zeile ist von Macroaufzeichnung)

Und ich möchte, dass es nicht zur bis Zeile 50 geht, sondern soweit, wie es  Zeilen in der Tabellenblatt 1 gibt. (es gibt immer unterschiedlich lange Spalten)
Also was muss ich für die "F50 " eintragen? Sowas wie "A1":Sheets(1).End(xlUp).Row" oder geht das garnicht?
 

[gmg-cc]

Moin,

zumindest bist du schon in die Nähe gekommen 

Code: [Auswählen]

   Dim lRow As Integer
   '..
   lRow = Sheets(1).Cells.Find(What:="*", SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious).Row
   '..
   'ungeprüft
   Selection.AutoFill Destination:=Range("A1:F" & lRow), Type:=xlFillDefault
   '..


[Lycaner]

funktioniert super, vielen dank