Результаты выборки на новый лист - VB

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

Здравствуйте!
Нужна помощь с VBA (Excel)
Как поместить результаты выборки на новый лист?
Подробнее:
Имеется таблица Excel
Через форму выполняется поиск (пусть будет по фамилии)
я решил это с помощью выборки

Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Text, Operator:=xlAnd

но как результат поместить на новый лист?
при этом что бы вид основной таблицы не изменился?

Решение задачи: «Результаты выборки на новый лист»

textual
                            Листинг программы 
                        
                            With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
  .Copy Worksheets.Add.Cells(1, 1)
End With