"Kopiere" værdier i en kolonne til rækker, hvordan? evt. VBA

Prø at køre denne makro. Den skal kunne gøre det selv :-)
Sub Transponer()
' Denne makro transponerer en kolonne med data
' til x nye kolonner
' Bemærk at makroen kører så længe der er data i data-kolonnen
Dim iRow As Integer
Dim iColumn As Integer
Dim iCounter As Integer
Dim IColumn2 As Integer
Dim iRecSize As Integer
Dim xArray As Range
Application.ScreenUpdating = False
iRow = 1        'sætter start-rækken for data
iColumn = 3    'sætter start-kolonnen for data Kolonne C
iCounter = 2    'sætter indsættelses-række for tranponerede data
IColumn2 = 1    'Vælger indsættelseskolonne
iRecSize = 10    'vælger Recordstørrelse

    Do Until IsEmpty(Cells(iRow, iColumn)) = True
        Set xArray = Range(Cells(iRow, iColumn), Cells(iRow + iRecSize - 1, iColumn))
        'kopierer de 10 rækker
        'fastsætter, hvor data skal indsættes
        'kopierer og transponerer de 8 rækker til slut-området
        Sheets(2).Range(Sheets(2).Cells(iCounter, IColumn2), Sheets(2).Cells(iCounter, IColumn2 + iRecSize - 1)) _
                = WorksheetFunction.Transpose(xArray)
        'sætter inddata-variabel til næste kopiering (7 rækker længere ned)
        iRow = iRow + iRecSize
        'sætter slut-variabel til næste række
        iCounter = iCounter + 1
    Loop
End Sub

Tak for macroen, den virkede næsten!
Jeg tilføjede >>Sheets(1).Select<< ligefør Do Until.......

ok, her er et svar :-)
Din tilføjelse burde være unødvendig, hvis du starter maktoen på det ark der indeholder dine oprindelige data

Så skidt da du point ;-)

Jeg har efterfølgende fået denne formel som man bare kan fylde ud med flydehåndtaget.

=INDIRECT("Sheet1!C"&10*(ROW()-6)+COLUMN())