Button to remove rows

[The Animal]

Hi.
I have a filter on column "A" with Enable and Disable options via Data validation list.
I would like to create a macro that removes all rows flagged "Disable" and place them in rows 200 onwards.
So as we disable a row that disable row just goes onto the bottom of the list from row 200 onwards.

Thanks Stephen

 

[Logit]

.
Here is one way ....

Sub CopyYes()
   Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim Target As Worksheet
    Application.ScreenUpdating = False
    ' Change worksheet designations as needed
    Set Source = ActiveWorkbook.Worksheets("Sheet1")
    Set Target = ActiveWorkbook.Worksheets("Sheet1")
    
    Application.ScreenUpdating = False
    Target.Select
    
    With Target
        .Rows("1:199").Select
        'Selection.Delete Shift:=xlUp
    End With
    
    Source.Select
    j = 200   ' Start copying to row 1 in target sheet
    
    For Each c In Source.Range("A1:A199")   ' Do 1000 rows
        If c.Value = "Disabled" Then
           Source.Rows(c.Row).Copy Target.Rows(j)
        End If
        
        If c.Value = "Disabled" Then
           Source.Rows(c.Row).Delete
        End If
        
    Next c
        
    Target.Select
    Target.Range("A1").Select
    
    Worksheets(1).Calculate
    
    'Application.CutCopyMode = False
    Source.Select
    Source.Range("A1").Select
    Application.ScreenUpdating = True
End Sub