Sub Agenda_Test()
Dim zelle As Range, zeile As Long, letzte As Long
For Each zelle In Range("K:K")
If zelle = "ja" Then
zeile = zelle.Row
Union(Cells(zeile, 2), Cells(zeile, 4), Cells(zeile, 5)).Copy
letzte = Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Row
If letzte < 5 Then
Sheets("Test").Cells(5, 4).PasteSpecial xlPasteValues
Else
Sheets("Test").Cells(letzte + 1, 4).PasteSpecial xlPasteValues
End If
End If
Next
End Sub