Kopiëren van tabblad naar tabblad

[Janusje]

Hallo allemaal,
mijn probleem is dat ik de gegevens in het datatabblad moet verplaatsen naar andere tabbladen. In kolom b staan de getallen 1 t/m 14. De gegevens in die rij moeten naar 14 tabbladen.
Ik heb een stuk code, maar hij blijft de eerste rij overschrijven op de 14 tabbladen. Hoe kan ik dit verhelpen?

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim laatste As Integer
Dim laatste1 As Integer

i = 1
laatste = Range("A65536").End(xlUp).Row

While i <= laatste

For j = 1 To 14

    If Cells(i, 2) = j Then
    Range("A" & i).Resize(1, 2).Copy
    Worksheets("Blad" & j).Paste
    laatste1 = Worksheets("Blad" & j).Range("A65536").End(xlUp).Row
    laatste1 = laatste1 + 1
    Destination = Worksheets("Blad" & j).Range("A" & (laatste1))
    Else
    End If
Next
i = i + 1
Wend

End Sub

Alvast bedankt.
Groeten Janusje

 

[Wigi]

Ietsje korter:

Private Sub CommandButton1_Click()
    Dim i As Long
    i = 1
    While i <= Range("A" & Rows.Count).End(xlUp).Row
        Range("A" & i).Resize(1, 2).Copy Sheets("Blad" & Cells(i, 2)).Range("A" & Rows.Count).End(xlUp).Offset(1)
        i = i + 1
    Wend
End Sub

Wigi

 

[Janusje]

Super!! Het werkt.
Dankje voor je hulp Wigi
Groeten Janusje