markiert Zeile nach Button Klick vba

Sub test()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Dim Value As String
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
Value = Cells(11, 6).Value
For Zeile = 1 To ZeileMax
If .Cells(Zeile, 6).Value = "fertig" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub