Rij kopieren naar onderste regel als voorwaarde

[xamirz]

Ik heb een werkblad waarin ik als ik in kolom L een bepaalde waarde invul, deze rij geheel wordt gekopieerd naar de onderste regel.

Hoe doe ik dat in VBA?

Heb verschillende dingen geprobeerd, kom er echter niet helemaal uit.

 

[Warme bakkertje]

Uit het vuistje

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Final
    If Not Intersect(Target, Columns(12)) Is Nothing Then
        If Target.Value = "Waarde?" Then 'aanpassen naar werkelijke waarde
            Target.EntireRow.Copy Range("A10000").End(xlUp).Offset(1)
        End If
    End If
Final:
End Sub

 

[xamirz]

Uit het vuistje

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Final
    If Not Intersect(Target, Columns(12)) Is Nothing Then
        If Target.Value = "Waarde?" Then 'aanpassen naar werkelijke waarde
            Target.EntireRow.Copy Range("A10000").End(xlUp).Offset(1)
        End If
    End If
Final:
End Sub

Het is gelukt. Bedankt