Kopiering i macro løkke

Det skal lige siges at de lige så godt kune være 40 så jeg er ved at lave en funktion der får denne data fra en variabel som bliver indputtet fra keyboarded.

min kode ser sådan ud idag

For t = 0 To counter - 1
    Data1 = (rk * t) - 1 ' Data1 er hvor infoen ligger
      Range(Cells(Data1, 2), Cells(Data1, 2)).Copy Range(Cells(Data1 + t, 2), Cells(2, 3))
    Next t

Jeg må indrømme at jeg ikke forstå det du skriver :o), meen i bliver data1 1. gang -1, den skal være >= 1, VBA burde melde fejl det der!!

Prøv at vise hele koden. Uddraget her siger ikke rigtigt noget om hvad fx rk og counter er, når du går ind i løkken.

Jeg har skrevt det op her som koden skal virke.
rk er en data værdi. efeks 10
Et af problemerne er der er nogle "hop" hvor der feks ikke er data i 2 celler og så fortsætter de igen så der skal nok laves 2 eller 3 løkker.

    Data1 = rk + 1
    Range(Cells(Data1, 2), Cells(Data1, 2)).Copy Range("B2")
    Data2 = rk * 2
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("C2")
    Data2 = rk * 3 - 1
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("D2")
    Data2 = rk * 4 - 2
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("E2")
    Data2 = rk * 5 - 3
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("F2")
    Data2 = rk * 6 - 4
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("G2")
    Data2 = rk * 7 - 5
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("H2")
    Data2 = rk * 8 - 6
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("I2")
    Data2 = rk * 9 - 7
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("J2")
   
    Data2 = rk * 10 - 6
    Range(Cells(Data1, 2), Cells(Data1, 2)).Copy Range("K2")
    Data2 = rk * 11 - 7
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("L2")
    Data2 = rk * 12 - 8
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("M2")
    Data2 = rk * 13 - 9
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("N2")
    Data2 = rk * 14 - 10
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("O2")
    Data2 = rk * 15 - 11
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("P2")
    Data2 = rk * 16 - 12
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("Q2")
    Data2 = rk * 17 - 13
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("R2")
    Data2 = rk * 18 - 14
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("S2")
    Data2 = rk * 19 - 15
    Range(Cells(Data2, 1), Cells(Data2, 1)).Copy Range("T2")

    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("U2")
    Data2 = rk * 21 - 15
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("V2")
    Data2 = rk * 22 - 16
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("W2")
    Data2 = rk * 23 - 17
    Range(Cells(Data2, 2), Cells(Data2, 2)).Copy Range("X2")
    Data2 = rk * 25 - 19
    Range(Cells(Data2, 1), Cells(Data2, 1)).Copy Range("Y2")