Makrorekorder optimieren

[Noob55]

Hallo zusammen mir es geht um folgenden Code, den ich über den Makrorecorder aufgenommen habe:

Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

ich will in spalte B alles bis zur letztbeschriebenen Zelle kopieren.

Am besten wäre es wenn hierfür keine Variable vordefiniert werden müsste, weil ich jetzt schon nicht mehr durchblicke in meinem Gesamtcode.

Grüße
Ilyas

EDIT!!!

falls jemand schon nach einem Lösungsansatz sucht, dann tut es mir Leid!

Ich sehe gerade, dass mein Makro nur bis zur nächste beschriebenen Zelle alles kopiert. Dies reicht allerdings nicht.
Wie in der Erklärung auch erläutert muss bis zur letzten beschriebenen Zelle alles kopiert werden.


Hintergrund ist, dass mehrere Tabellen untereinander aufgebaut werden müssen. Wenn ich die komplette Spalte kopiere ((columns A:A).copy) überschreite ich die maximale Anzahl an möglichen Feldern.
In einem nächsten Schritt müsste ich das richtige Feld finden, in der mein Zwischenspeicher eingefügt werden soll. Hier müsste ich wieder die letzte beschriebene Zelle einer Spalte finden und das kopierte darunter einfügen. Dies ist allerdings ein ferneres Ziel.

[Kuwer]

Hallo,

Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)).Copy

Gruß Uwe

[Klaus-Dieter]

Hallo,

Hintergrund ist, dass mehrere Tabellen untereinander aufgebaut werden müssen.

sagt wer? Das gehört zu den Arbeitsweisen, die man auf jeden Fall unterlassen sollte.

[Mase]

Hi,

Code:

Option Explicit

Sub ZuletztBeschriebeneZelleInSpalteA()
    'gut leserliche Schreibweise
    With ActiveSheet
        MsgBox .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    'performantere Schreibweise
    With ActiveSheet
        MsgBox .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
    'die nächste freie Zelle unter der zuletzt beschriebenen
    With ActiveSheet
        MsgBox .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    End With
End Sub

[snb]

PHP-Code:

Sub M_snb()
  columns(2).specialcells(2).copy
End Sub