Opgelost 'vraagje

[fire746]

Ik heb de onderstaande code van dit forum gehaald en is perfect voor mij, alleen nu is mijn vraag hoe laat ik de macro op rij 5 beginnen nu begint de macro op rij 2.

Sub Kopieer()
    myarr = Array(25, 26, 27, 1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 3, 24, 29, 28, 14, 15, 16, 17, 18, 20, 21, 22, 23, 19)
    With Sheets("Blad2")
        r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        For i = 1 To 29
            .Cells(r, myarr(i - 1)).Value = Sheets("Blad1").Cells(18, i).Value
        Next
    End With
    Sheets("Blad1").Rows(18).ClearContents
End Sub

 

[snb]

Zet een spatie in cel A4 in Blad 2

 

[emields]

U dacht waarschijnlijk " Ik ben al zo lang lid dat een voorbeeldbestandje plaatsen pure tijdverspilling is" heb ik er zelf maar 1 gemaakt.

 

[fire746]

Sorry Emields je hebt gelijk had ik inderdaad moeten doen, Bedankt voor het andwoordt.