Office: Zellen kopieren und Inhalt in neuem Tabellenblatt einfügen

Guten Morgen zusammen,

ich brauche eine VBA Lösung für Excel 2003, da ich mich leider nicht damit auskenne.

Ich möchte die Zellen A9:G21 kopieren und dessen Inhalt (ohne Formatierung) auf einem anderen Tabellenblatt (Name: "Auswertung") ab der ersten leeren Zelle der Spalte G einfügen.
Die Zellen G,H und I einer jeden Zeile sind verbunden.

Ist das möglich?

Im Voraus besten Dank.

Greetz

 

Hallo!

Verbundene Zellen sind zu 99% ganz, ganz großer Mist! Darauf solltest du, wenn möglich, IMMER verzichten! Soll es nur um die Optik gehen, dann liefert die Zellformatierung "Über Auswahl zentrieren" das gleiche Ergebnis.
Daher ist dieser Code sicher auch nicht optimal, da er jede Zelle einzeln übernimmt:

Code:

Sub Kopieren()
Dim Quelle As Range, Ziel As Range, i As Integer
Set Quelle = Sheets("Quellblatt").Range("A9:G21") 'hier Blattnamen anpassen!
With Sheets("Auswertung")
Set Ziel = .Cells(.Cells(Rows.Count, 7).End(xlUp).Row + 1, 1).Resize(13, 7)
End With
For i = 1 To Quelle.Count
Ziel.Cells(i) = Quelle.Cells(i)
Next i
End Sub