Plakken vanaf rij 18

[JurjenOud]

Hoi,

Ik ben druk bezig met een bestand, waarin hij informatie haalt uit sheet 2 en deze moet plakken in sheet 3. Ik wil echter, dat hij pas begint met het plakken van de rijen vanaf rij 18 in sheet 3. Ik heb al een poos zitten proberen, maar om ik krijg steeds een foutmelding dat er een fout in m'n code zit. Heeft een van jullie misschien de oplossing?

Private Sub Vernieuwen_Click()

Sheets(3).Range("A18:I1000").ClearContents
For Each cl In Sheets(2).Range("A:A").SpecialCells(2)
    If cl.Value <> 0 And cl.Value <> "" And cl.Value <> "Aantal" Then cl.EntireRow.Copy Sheets(3).Cells(Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1)
Next
End Sub

Alvast bedankt

 

[Cobbe]

Er zit geen fout in de code.
Welke foutmelding en op welke regel krijg je die?

Wil je pas plakken vanaf rij 18 zet dan een titel in cel A17 van Blad3.