筛选EXCEL文件中背景色为绿色的脚本

Sub Select_CopyRows()
    Dim LastRow As Long
    Dim r As Long
    LastRow = ActiveSheet.UsedRange.Rows.Count
    LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
    Application.ScreenUpdating = False
    n = 1
    m = 1
    o = 1
    r = 0
    For r = 100 To 1 Step -1
        'MsgBox Cells(r, 1).Interior.ColorIndex

'判断单元格的背景色
        If (Cells(r, 1).Interior.ColorIndex = 35) Then

 '此处为需要复制的目标表
        Sheets("sheet3").Select
        Rows(r).Select
        Selection.Copy

'此处为需要复制到的表
 Sheets("sheet4").Select
 '选定要复制到的表中的行
        Sheets("sheet4").Rows(n).Select
        ActiveSheet.Paste
        n = n + 1
        End If
       
       
    Next r
    '输出复制的行数
    MsgBox n
   
End Sub