Прошу помощи у знатоков. help Попытался нарисовать макрос который в определенном столбце находит все значения по вхождению любых букв, затем меняет шрифт и заливку, а затем их сортирует (хотя может было бы лучше и фильтрует) Причем Sub писался для Perconal, т.е универсалка на кнопку панели управления. С первой частью все хорошо, находим, выделяем, а вот с сортировкой голову сломал confused , подскажите где ошибка, вот код:
Code
Sub НайтиСортировать()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim НачЯч As Range
Dim Диап As Range
Dim Столб As Range
Dim СтартАдр As String
Dim Результат As Range
Dim Искомое As String
Dim НачЯчАдр As String
Dim ИскЯч As Range

Set НачЯч = ActiveCell
НачЯчАдр = ActiveCell.Address
Set Столб = Range(Cells(ActiveCell.Column, 1), _
Cells(Range("A65536:IV65536").End(xlUp).Row, ActiveCell.Column))
'Столб.Select

Искомое = "*" & InputBox("Чаво искать будем?") & "*"
Set Результат = Столб.Find(Искомое, , , xlWhole)
If Not Результат Is Nothing Then
СтартАдр = Результат.Address
End If
Do While Not Результат Is Nothing
' Обработка результата поиска
Результат.Interior.ColorIndex = 20
Результат.Font.ColorIndex = 5

' Новый поиск
Set Результат = Столб.FindNext(Результат)
If Результат.Address = СтартАдр Then
Exit Do
End If
Loop
Range(НачЯчАдр).Select
Set Диап = Range(Cells(ActiveCell.Row, 1), _
Cells(Range("A65536:IV65536").End(xlUp).Row, ActiveCell.End(xlToRight).Column))

'Диап.Select

Dim СортЯч As Range
Dim НомСтолб As Currency
НомСтолб = НачЯч.Column

With Диап
.Columns(НомСтолб).EntireColumn.Insert
For Each СортЯч In .Columns(НомСтолб).Cells
СортЯч.Offset(, -1).Value = СортЯч.Font.ColorIndex
Next
.Offset(, 0).Resize(.Rows.Count, .Columns.Count).Select
.Sort Key1:=Cells(1, 1).Offset(1, 1)
.Columns(НомСтолб).Offset(, -1).EntireColumn.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End With
End Sub

Заранее благодарен

Да жаль что никто не ответил, маленько доработал, работает, находит по любому вхождению, выделяет фильтрует, удобно, но возникли следующие вопросы - ищет только по значению, т. е. результат формул и даты в формате дат не ищет, и второе написал Sub, для обратного действия - тоже работает, но если ничего не нашел, то усе. Может кто нибудь подскажет как этих тараканов вывести. Штука удобная может пригодиться всем. Вот измененный код: