adr = ActiveWindow.RangeSelection.Address  
переменная содержит все выделенные диапазоны,    
может понадобится?

Удалить Private Sub ComboBox1_Change

При работе с Автофильтром, выбираете Условие  
начинается с, и отфильтруются записи с нужным отправителем

Пардон, ALT F8

ALT F7

Макрос Kuda прописывает номера столбцов Лист2(куда нужно копировать)  
Макрос Zap переписывает данные с Лист1 на Лист2(данные с третьей строки Лист1)  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

ALT F8  
выполнить Макрос1

Sub Макрос1()  
 
  Dim MyCheck  
  Dim myRange As Range  
   Set myRange = Worksheets(1).Range("A2:A10000") 'с 2-й строки,если есть шапка  
MyValue = InputBox("Введите маску поиска")  
 
For Each chislo In myRange  
MyCheck = Str(chislo)  
Poisk = InStr(1, MyCheck, MyValue)  
 
   If Poisk <> 0 Then  
       chislo.Select  
    Selection.Offset(0, 1).Select 'в ячейке справа(В) проставим признак 1  
       Selection.Value = 1  
   End If  
Next  
 
End Sub

ALT F8, выполнить Макрос1