Lijst van wisselende lengte kopiëren doormiddel van Macro

[Tom297]

Voor mijn werk moet ik een lijst maken met liftfactoren voor bepaalde artikelen die voor 6 locaties moet worden gekopieerd. Daarnaast moet er het woord "promotion" worden toegevoegd aan de laatste kolom.
Ik heb hiervoor een macro gemaakt die in principe goed werkt zolang de lijst elke keer dezelfde lengte heeft.
De lijst wisselt echter elke keer van lengte waardoor de macro niet goed werkt.

Heeft iemand hier een oplossing voor?
Zie de bijlage voor het excel bestand waar de macro in zit.

 

[ExcelAmateur]

Kijk of je er wat mee kunt,
https://www.helpmij.nl/forum/showthread.php/893025-Macro-kopieren-plakken-in-eerstvolgende-lege-rij-in-de-tabel?p=5772911&highlight=Laatste+regel+macro#post5772911

 

[roeljongman]

Je hebt niet alleen een variabel bereik maar wil het ook nog eens 3x herhalen. dat vraagt een andere aanpak dan macro opnemen. Dan moet je zelf gaan schrijven..

Ik kom uit op de volgende macro.

Sub test2()

Set DataRange = Range("B2", Range("B2").End(xlDown)).Resize(, 5)
Range("F2").Resize(DataRange.Rows.Count).Value = "promotion"

arORLO = Array(1384, 1398, 8977)
Aantalrijen = Range("B2", Range("B2").End(xlDown)).Rows.Count

For x = 0 To UBound(arORLO)
    Range("A2").Offset(Aantalrijen * x).Resize(Aantalrijen).Value = arORLO(x)
    DataRange.Copy Destination:=Range("B2").Offset(Aantalrijen * x)
Next
End Sub

Daarbij heb ik de aanname gedaan dat de ORLO's altijd dezelfde 3 waarden zijn..
plak deze code maar eens in je voorbeeld en zie of dat doet wat je bedoelt

 

[Tom297]

Roel de macro die je hebt geschreven is inderdaad precies hetgeen ik bedoelde. Ik weet wel iets over macro's schrijven, maar ik zie hier termen in staan die ik voorheen nog nooit heb gebruikt.
Super bedankt!