Office: VBA Makro, einzelne Zellen kopieren und in fortlaufende Zeile einfügen

Hallo zusammen
Verstehe die Makro Codes nicht gut, jedoch halfen bereits youtube Tutorials bei ein paar Problemen. Nun bräuchte ich aber eure Hilfe. Es geht um folgendes:
Ich möchte ein Makro in der selben Datei erstellen, welche aus Tabelle1 einzelne Zellen in eine Zeile in Tabelle4 einfügt. Dabei sollten die Werte immer in die erste freie Zeile nach unten eingefügt werden.
C19 aus Tabelle1 --> Spalte A in Tabelle4
H21 aus Tabelle1 --> Spalte B in Tabelle4
F12 aus Tabelle1 --> Spalte D in Tabelle4
H49 aus Tabelle1 --> Spalte E in Tabelle4

Vielen Dank
Gruss cgloth

 

Code:

Option Explicit

Sub Kopie()
    Dim LoLetzze As Long
    With Worksheets("Tabelle4")
        LoLetzze = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Tabelle1").Range("C19").Copy .Cells(1, LoLetzze)
        LoLetzze = IIf(IsEmpty(.Cells(Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Tabelle1").Range("H21").Copy .Cells(2, LoLetzze)
        LoLetzze = IIf(IsEmpty(.Cells(Rows.Count, 4)), .Cells(Rows.Count, 4).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Tabelle1").Range("F12").Copy .Cells(2, LoLetzze)
        LoLetzze = IIf(IsEmpty(.Cells(Rows.Count, 5)), .Cells(Rows.Count, 5).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Tabelle1").Range("H49").Copy .Cells(2, LoLetzze)
    End With
End Sub

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="Homeseite - Hajo's Excelseiten"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Meine Homepage Homeseite - Hajo's Excelseiten

 

erstmal Vielen Dank für deine schnelle Hilfe.
Leider kopiert es mir die Werte alle in Spalte F abwärts. Ich möchte jedoch bei Zeile 5 beginnen und dann wenn es neue Werte gibt fortlaufend mit Zeile 6 etc. weitermachen.
Und noch ein kleines Detail wenn möglich, möchte ich nur die Werte übernehmen, jedoch nicht die Formatierung der Werte.

 

der Coide war falsch

Code:

Option Explicit

Sub Kopie()
    Dim LoLetzze As Long
    With Worksheets("Tabelle4")
        LoLetzze = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Tabelle1").Range("C19").Copy .Cells(LoLetzze, 1)
        LoLetzze = IIf(IsEmpty(.Cells(Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Tabelle1").Range("H21").Copy .Cells(LoLetzze, 2)
        LoLetzze = IIf(IsEmpty(.Cells(Rows.Count, 4)), .Cells(Rows.Count, 4).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Tabelle1").Range("F12").Copy .Cells(LoLetzze, 4)
        LoLetzze = IIf(IsEmpty(.Cells(Rows.Count, 5)), .Cells(Rows.Count, 5).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Tabelle1").Range("H49").Copy .Cells(LoLetzze, 5)
    End With
End Sub

Gruß Hajo

 

Danke nun stimmt der Code.
Wäre es noch möglich damit es nur die Werte und nicht die Formatierung kopiert und einfügt?

 

tausche die beiden Ausdrücke, ohne Copy

.Cells(LoLetzze, 1)=Worksheets("Tabelle1").Range("C19")

Gruß Hajo

 

Perfekt Vielen Dank!