inhoud van cellen automatisch verplaatsen

[JEPEDEWE]

Hallo,
Heb een helpend handje nodig
Ik heb een bestandje met de top 1000 van hits
Nu staan die onder elkaar: plaats, datum, uitvoerder, titel
Ik wil die graag NAAST mekaar... in dezelfde volgorde
Kan ik dat excel automatisch laten doen?
Bedankt
JP
Bekijk bijlage top 1000.xlsx

 

[Cobbe]

Als je die macro draait komt alles goed:

Sub Cobbe()
Application.ScreenUpdating = False
For song = 1 To 4000 Step 4
    Range("A" & song & ":A" & song + 3).Copy
    Range("F" & Range("F" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
 Next
    Columns("F:L").EntireColumn.AutoFit
End Sub

Bijgevoegd afgewerkt bestand.

 

[JEPEDEWE]

Top top top... pefect!!!
Dikke merci, en prettig eindejaar!!

Let the music play!

JP