Aus gesamter Tabelle nur den gefüllten Bereich kopieren

[D K]

Hallo an die Excel-Gemeinde, 

ich möchte aus der Tabelle1 die Daten in Tabelle2 übernehmen und das ganze per Makro. Kopiert werden soll allerdings nur der Bereich bis zur letzen gefüllten Zeile der Spalte A (kann variieren).
(Makrorecorder und dann links oben auf alles markieren und dann kopieren und einfügen klappt nicht, da das Excel überlasten würde)
Bisher habe ich diesen Code gefunden:

Sub ListeKopieren()
'Zunächst will ich den Inhalt komplett löschen
Worksheets("Tabelle2").Cells.ClearContents
With Sheets("Tabelle1")
   .Range("A:HG" & .Cells(.Rows.Count, 2).End(xlUp).Row).copy
   Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
        :=False, Transpose:=False
End With
Application.CutCopyMode = False


Ich habe den Code zugegebenermaßen durch googlen gefunden und zunächst hat er auch funktioniert, seit gerade eben aber nicht mehr. 
Kann mir jemand von euch erklären was genau durch den Code passiert. 
Oder hat jemand eine alternative Lösung?

Vielen Dank schon mal im Voraus!

[Crazy Tom]

Hi

was heißt "funktioniert nicht mehr"?

Rauch aus dem Monitor? oder
Fehlermeldung? wenn ja, welche und welche Codezeile wird markiert?

MfG Tom

[schauan]

Hallöchen,

hat der wirklich funktioniert?

.Range("A:HG" & .Cells(.Rows.Count, 2).End(xlUp).Row).copy

Bei mir kommt nach der ersten Spalte in der Regel noch eine Zahl vor dem Doppelpunkt und der zweiten ...

[D K]

Vielen Dank für die beiden Antworten. 
Ja, eigentlich hat er wirklich mal funktioniert, zumindest habe ich mir das eingebildet....

Die Fehlermeldung lautet: 
Laufzeitfehler '1004':
Anwendungs- und objektorientierter Fehler

und es wird auch genau die von schauan genannte Codezeile markiert.
.Range("A:HG" & .Cells(.Rows.Count, 2).End(xlUp).Row).copy

[Kuwer]

Ja, eigentlich hat er wirklich mal funktioniert, zumindest habe ich mir das eingebildet....

Der hat definitiv so nie funktioniert.

und es wird auch genau die von schauan genannte Codezeile markiert.
.Range("A:HG" & .Cells(.Rows.Count, 2).End(xlUp).Row).copy

André hat doch geschrieben, wo was fehlt.

Gruß Uwe