Office: Makro nächste Ausführung eine Zeile tiefer

Hallo VBA Profis,

ich habe folgendes Makro in Excel aufgezeichnet.
Das Makro kopiert folgende Zellen wie folgt:
kopiere C1 und füge in C6 ein
kopiere C2 und füge in D6 ein
kopiere C3 und füge in E6 ein

Bei der nächsten Ausführung möchte ich wieder aus C1, C2, C3 kopieren aber diesmal in C7, D7, E7 einfügen. Soll heißen eine Spalte tiefer sollen die Werte eingefügt werden.
Was muss ich den Befehl ergänzen damit er immer eine Zeile tiefer einfügt bei Ausführung?

Freue mich auf Hilfe von euch!
Danke Jan

--------------------------------------
Sub Versuch2()
'
' Versuch2 Makro
'

'
Range("C1").Select
Selection.Copy
Sheets("Blatt2").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Blatt1").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blatt2").Select
Range("D6").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Blatt1").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blatt2").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Blatt1").Select
End Sub

:)

 

E6 und E8 sind aber 2 Zeilen tiefer?

Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Online-Excel.de

 

Hallo Hajo,

sorry, Fehler von mir!
Zeile 6 beim ersten klicken, Zeile 7 beim zweiten klicken, Zeile 8 beim dritten klicken usw.

 

Code:

 

Hallo Hajo,
Super, Vielen Dank für deine Hilfe! Klappt genauso wie gewünscht.

Könnte man vor Übertragung der Datensätze auch prüfen, ob es den Datensatz bereits gibt? Beispielsweise soll Excel mir den Wert C1 vom Blatt 1 mit allen Werten der Spalte C vom Blatt 2 vergleichen bevor kopiert wird. Gibt es diesen Wert noch nicht, werden die Felder übertragen. Gibt es ihn schon werden die gesamten Zeilen nicht kopiert und event. eine Fehlermeldung ausgegeben.

Vielen Dank.

 

benutze Find. Du hast ja die Datei.
Set Rafound1 = Columns(1).Find("Erledigt", Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)