Нужно выбрать все строки содержащие слово, например "ПТО" и скопировать на втрой лист книги - VBA

Формулировка задачи:

Задача состоит в следующем: есть книга в экселе, на 1 листе книге много заполненых строк. Нужно выбрать все строки содержащие слово , например "ПТО" и скопировать на втрой лист книги, на следующий лист поместить строки содержащие "ЧЧЧ", и так далее . Спасибо всем кто сможет помочь

Решение задачи: «Нужно выбрать все строки содержащие слово, например "ПТО" и скопировать на втрой лист книги»

textual
                            Листинг программы 
                        

                            Sub bb()
Dim cl As New Collection, c As Range
On Error Resume Next
For Each c In Range("B2", Cells(Rows.Count, "B").End(xlUp))
    cl.Add 1, c.Text
    If Err Then
        Err.Clear
    Else
        c.Parent.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = c
        Range("B2", Cells(Rows.Count, "B").End(xlUp)).ColumnDifferences(c).EntireRow.Delete
    End If
Next
End Sub
                        