Excel - verticale invoer kopieren naar horizontale rij

[Scuba70]

Ik heb een volgende uitdaging.
Graag wil ik inhoud van 5 regels (van boven naar beneden) kopieren naar
andere tabblad, en dan toegevoegd aan de laatste rij.

Ik heb wel een macro die aan de laatste rij toevoegt. Maar in praktijk gaat het toch fout.
Want als een van de kolommen niet gevuld is, dan wordt 1 van de gegevens op lagere positie neergezet.
De 5 regels moeten dus echt allemaal op 1 rij.

Wie kan me helpen. Zie ook bijlage.

 

[VenA]

De macro is niet meegekomen in het bestand.
Probeer het zo eens.

Sub VenA()
  If [N5] <> "" Then Sheets("DB - Klant").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = Application.Transpose([N5].Resize(5).Value)
End Sub

 

[Scuba70]

Yes, het werkt !
En dat gewoon in 1 regel hé.

Dank voor je snelle reactie !!