фильтрование в Excel VBA

[Romka12345]

Пример! в одном столбце:
Города:
Москва
Москва
Львов
Львов
и программа фильтрует их в диапазон А5, а если записать в А5 еще данные, то они залезут на "ответ". Проблема: Нужно чтобы ответ фильтрование автоматически спускался вниз после заполнения даными столбца А !! как ето зделать?

 Sub how2find()
Dim finded As Integer 'переменная для хранения кол-ва
finded = 0
On Error GoTo err1
    inp_b = InputBox(" введите символ", , nn) 'диалог
    For Each cell In Range("A1:А4")   'искать будем в этом дипазоне, можно запрашивать диалогом, если диапазон меняется
    If cell = inp_b Then finded = finded + 1
    Next cell
'  MsgBox finded
      Range("A5").Value = "Обнаружено " & finded & " символов " & inp_b
err1:
End Sub

[alex77755]

Если не удалять предыдущий ответ, то так:

 Sub how2find()
Dim finded As Integer 'переменная для хранения кол-ва
finded = 0
Dim j
    inp_b = InputBox(" введите символ", , nn) 'диалог
    For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row  'искать будем до конца списка
    Debug.Print Cells(j, 1).Value
    If Cells(j, 1).Value = inp_b Then finded = finded + 1
    Next j
'  MsgBox finded
      Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = "Обнаружено " & finded & " символов " & inp_b
End Sub

[Romka12345]

спосибо!!!!!!!!!