Waarden plaatsen van een regel naar kolom

[ExcelTonnie]

Ik wil data van bepaalde regels in een kolom plaatsen en heb het volgende bedacht.
Dit kost veel code en hoe plaats ik dit in een loop.

'1e getal is de regel 2e getal is de kolom
ws3.Cells(2, 2).Value = ws1.Cells(11, 15)
ws3.Cells(3, 2).Value = ws1.Cells(11, 16)
ws3.Cells(4, 2).Value = ws1.Cells(11, 17)
ws3.Cells(5, 2).Value = ws1.Cells(11, 18)
ws3.Cells(6, 2).Value = ws1.Cells(11, 19)
ws3.Cells(7, 2).Value = ws1.Cells(11, 20)

Dit moet snel kunnen in een loop maar kom er even niet uit.
De loop die niet goed is want hij plaatst elke regel van 15 in de 2e kolom hetzelfde.
Logisch maar hoe krijg ik regel 16 enz.

For b = 2 To 20

ws3.Cells(b, 2).Value = ws1.Cells(11, 15)
ws3.Cells(b, 2).Value = ws1.Cells(11, 16)

    Next b

 

[snb]

Voor het resultaat gebruik kopie, transponeren.

Om VBA te leren:

For j = 2 To 20
  ws3.Cells(j, 2)= ws1.Cells(11, 13 + j).value
 Next

 

[ExcelTonnie]

Voor het resultaat gebruik kopie, transponeren.

Klopt helemaal echter heeft iemand iets gemaakt met onregelmatige sprongen ertussen.

 

[snb]

Als iets onregelmatig is valt er ook met code weinig regelmatigs van te maken.