Excel: met een macro van kolom naar rij

[burley]

Ik ben bezig met een excel sheet waarin ik data die in een kolom (van blad 1) staat naar een rij (op blad 2) om wil zetten. De makro heb ik, maar hij start elke keer in dezelfde cel, waarmee hij de vorige data overschrijft.

Als de data omgezet is mag de oude data verwijderd worden.

Ik heb al een aantal zaken geprobeerd, gezocht hier op het forum, maar ik kom er niet uit. Kan iemand die beter is dan ik met VBA wellicht helpen?

Onderstaand de code;

    Range("A1:A5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("Patrizia Pepe").Select
    Rows("1:5").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

Onderstaande code vond ik hier op het forum

Sheets("blad3").Range("A" & Rows.Count).End(xlUp).Offset(2) = "nieuwe data"

Hij start braaf in een nieuwe cel, maar hoe zorg ik dat er ipv "nieuwe data' mijn data komt te staan?

Ik heb overigens excel 2007

Alvast bedankt voor jullie moeite!!!

 

[E v R]

zonder copy:

Sheets("blad3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(, 5) = Application.Transpose(Sheets("Patrizia Pepe").Range("A1:A5"))

 

[burley]

top!!

Bedankt het werkt!