Моё почтение!  
С очередной проблеммкой обращаюсь к специалистам...  
Есть рабочий макрос, добавляющий в столбец А данные со столбца В:  
 
Sub Uptate1_()  
Dim LastRow As Long, Rw As Long, j As Integer, i As Long  
Rw = 10  
 LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
 For j = 1 To 2  
   LastRow = Cells(Rows.Count, j).End(xlUp).Row  
    For i = 10 To LastRow  
      If Cells(i, j).Value <> "" Then  
        Cells(Rw, 1) = Cells(i, j).Value  
        Rw = Rw + 1  
      End If  
    Next  
  Next  
End Sub  
 
Желательно расширить задачу, чтобы макрос не только из B в A добавлял, но и из D в C, а также из F в E.  
 
Пробовал банально продублировать макрос 3 раза со смещением задания на "j":    
 
Sub Uptate1__()  
Dim LastRow As Long, Rw As Long, j As Integer, i As Long  
Rw = 10  
 LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
 For j = 1 To 2  
   LastRow = Cells(Rows.Count, j).End(xlUp).Row  
    For i = 10 To LastRow  
      If Cells(i, j).Value <> "" Then  
        Cells(Rw, 1) = Cells(i, j).Value  
        Rw = Rw + 1  
      End If  
    Next  
  Next  
 For j = 3 To 4  
   LastRow = Cells(Rows.Count, j).End(xlUp).Row  
    For i = 10 To LastRow  
      If Cells(i, j).Value <> "" Then  
        Cells(Rw, 3) = Cells(i, j).Value  
        Rw = Rw + 1  
      End If  
    Next  
  Next  
 For j = 4 To 5  
   LastRow = Cells(Rows.Count, j).End(xlUp).Row  
    For i = 10 To LastRow  
      If Cells(i, j).Value <> "" Then  
        Cells(Rw, 4) = Cells(i, j).Value  
        Rw = Rw + 1  
      End If  
    Next  
  Next  
End Sub  
 
не получается, макрос выполняет только первое задание...  
Скорее всего, всё очень просто должно решиться, да вот знаний пока маловато...

Столкнулся тут с неприятностью: по окончании работы над таблицей выяснилось, что установленный на лист стандартный макрос для работы в НЕ условном форматировании:  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Target.Cells.Count > 1 Then Exit Sub  
If Not Intersect(Target, Range("I10:I1009")) Is Nothing Then  
Target.Font.Name = "Marlett"  
If Target = vbNullString Then  
Target = "a"  
Else  
Target = vbNullString  
End If  
End If  
End Sub  
 
после установки защиты перестаёт работать, выдаёт ошибку шрифта:  
" '1004', Нельзя установить свойства Name класса Font"  
Диапазон с Марлеттом - без защиты стоит, но работать отказывается...  
Есть таблетка от сей болезни, или придётся программу в "беззащитном" варианте выпускать?  
Очень бы не хотелось......

Доброго всем дня!  
 
Выкладываю здесь кусочек программы, собранной на Экселе, предназначенной для работы со списками прокси-серверов.    
Всё - freeware.  
Сделал её сам, с помощью людей, которых упомяну ниже.  
 
Скачать бету можно здесь:    
http://depositfiles.com/files/j6st79enx  
 
Для чего нужна эта программка?  
Кто активно пользуется прокси-серверами, в курсе, как напрягает постоянно меняющаяся база рабочих проксей; сортировка, занудные массовые копипасты рабочих/нерабочих, выделение из рабочих проксей Соксов; их (Соксов) вредная привычка переходить в не-Соксовое состояние и обратно, оперативный перенос нужных списков или одиночных ИПшников в прокси-менеджеры (типа Proxy Switcher'а) и ещё: куча клочков бумаги на столе...;)    
Особо эта смарт-табличка поможет тем, кто не любит пользоваться public проксями, то есть, предпочитает сканить диапы сам.    
Поскольку я сам иногда занимаюсь прокси-охотой, а ничего похожего для реализации своих потребностей в сети не нашёл, решил сам заняться оптимизацией процесса сортировки всё возрастающей горы списков прокси-серверов.  
 
В приведённом архиве первая половинка программы (самая навороченная, кстати, дальше проще будет). Здесь мы сможем:  
1.Убрать все дубликаты  
2.Пропарсить содержимое (убрать весь не относящийся к делу мусор)  
3.Перевести доменные имена в IPшные (для этого необходимо наличие интернета)  
4.Аранжировать список по возрастанию IP и по портам  
5.Готовый список можно симпортировать в .txt файл  
 
Кухню - не скрывал, чтобы было удобнее понять, как оно работакт...  
Вторая часть, предназначенная для более детальной работы со списками проксей готова примерно наполовину и скоро, с Божией помощью, будет опубикована. =)  
 
Буду признателен всем тем, кто поможет довести программку до ума, ускорить и (или) упростить код.  
 
ПО РАБОТЕ ПРОГРАММЫ:  
 
Прокси-листы вносим либо копипастом в ячейку В10, либо экспортируем из текстового файла нажимая на пимпу "Импорт" (в архиве есть файл Образец.txt с 450 строчным прокси-листом для примера). Кнопка "Сортировка" помещает в столбец D все "правильные" прокси. Все прокси-адреса обозначенные доменными адресами можно перевести в обычный вид нажатием на кнопку "Фильтр" (результат поместится в столбец F), кроме того, фильтрация отпарсит список и пометит голубым цветом все повторы в столбцах D и F. Кнопка "Компиляция" совместит два столбца в один (Н), отсортирует IP по возрастанию, по портам и удалит все повторы. Кнопка "Экспорт" сохранит очищенный и отсортированный прокси лист в текстовай файл в дерикторию, в которой находится файл IPБ.xls (Имя .txt файлу присваивается автоматически, по дате и времени создания). Кпопка "Очистить" полностью очищает таблицу от загруженных данных.....  
Вроде всё.    
 
Мега-респекты специалистам в Excel'е, без которых сей продукт никогда бы не смог попасть в сеть:  
 
EducatedFool;  
The_Prist;  
Казанский;  
Михаил С.;  
Юрий М;  
ikki;  
Hugo;  
Дъмитръ;  
и многие другие (простите, если кого позабыл)...  
 
На вопросы, если они будут, с удовольствием отвечу; критику приму с благодарностью (а она наверняка будет - первый блин, как-никак ;) ).