Nogmaals de beginneling,
met hulp van een boek ben ik tot volgende "formule" gekomen:

opslaan van data
'zoeken naar eerste vrije lijn
i = 1
inhoud = Sheets("persen").Cells(i, 1)
Do While inhoud <> ""
    i = i + 1
    inhoud = Sheets("persen").Cells(i, 1)
    Loop

'wegschrijven
For j = 1 To 4
    Sheets("persen").Cells(i, j) = Sheets("persen").Cells(6, j)
    Next j

Helaas wordt er niets weggeschreven, moet ik hier nog iets bijvoegen of hebben jullie meer uitleg nodig over mijn probleem

Bedankt op voorhand

Goedemorgen,

1ste opmerking is juist... maar is in dit geval niet de fout.
Cells(x, x) moeten inderdaad 2 getallen zijn.  Maar hier worden de getallen vervangen door variabelen, die natuurlijk ook een getal kunnen voorstellen.
2de opmerking is eigenlijk niet juist.  Die Value is niet echt nodig, maar is wel aan te raden.  Dus is deze tip ook uitstekend.  Door alles juist te benoemen, weet je ook wat je doet in VBA.

Over deze zaken (Lussen; Variabelen; Navigeren in VBA Excel), kan je hier veel leren:
https://www.newbytes.be

Nu uw probleem: Volgens mij zit er geen fout in uw code, maar in het feit dat je niet weet wat ie doet.
Uw code is trouwens ook onlogisch.

Jij schrijft de data weg, die te vinden is in de cellen:
"A6:D6"

Bovendien begin je de eerste lege rij te zoeken vanaf cel A1
Dit is dus onlogisch...
Je vult iets in in de 6de rij, en toch begin je de eerste lege rij in cel A1 te zoeken.

Luc