Поиск не помог (видимо потому что я нуб в макросах)  
 
Есть код:  
 
Sub D()  
Selection.SpecialCells(xlCellTypeBlanks, 1).FormulaR1C1 = "= R[-1]C"
Selection.Copy  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Application.CutCopyMode = False  
End Sub  
 
После выполнения диапазон остается выделенным. В код нужно добавить сортировку выделенного диапазон по столбцу D (4-й столбец по счету) по убыванию (там числа). Верхняя строка диапазона не заголовки и тоже подлежат сортировке.  
 
Записал макрос сортировки:  
 
Sub сортировка()  
   ActiveWorkbook.Worksheets("пслн").Sort.SortFields.Clear  
   ActiveWorkbook.Worksheets("пслн").Sort.SortFields.Add Key:=Range("D57:D70"), _  
       SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal  
   With ActiveWorkbook.Worksheets("пслн").Sort  
       .SetRange Range("A57:D70")  
       .Header = xlGuess  
       .MatchCase = False  
       .Orientation = xlTopToBottom  
       .SortMethod = xlPinYin  
       .Apply  
   End With  
End Sub  
 
Но как в нем поставить выделенный диапазон, а не фиксированный не понимаю.

Угробил на поиск по сайту и в инете 6 часов. Не нашел.  
 
задача:  
таблица 12 столбцов n строк на листе а  
таблица на листе б которая должна содержать уникальные строки в диапазоне 7,8,9 столбца, подходящие под условия 2, 3, 5 столбца.  
 
пример словами: Если из 2 столбца взять все строки, содержащие слово "живое", затем из этих строк отобрать используя 3 столбец строки со словом "кошачьи", из них отобрать по 5му столбцу содержащие "котэ", а далее вывести уникальные строки диапазона(столбец7:столбец9)на отдельный лист, потом посчитать количество этих уникальных строк в массиве отобранном по условиям, указанном выше, а потом посчитать сумму уникальных строк.  
На новом листе должна  получиться таблица вида:  
столбец7  столбец8  столбец9  кол-во  сумма  
рыжий     толстый   игривый        9  5069  
рыжий     худой     игривый        5  10495  
рыжий     худой     ленивый        1  25  
полосатый толстый   ленивый       50  8385375  
 
 
 
Все данные выдуманы. Я не псих)))  
Сводные не предлагать (знаю что проще). Но в моем случае нужно обойтись функцией.  
 
Обещаю 2л пива тому кто справится с задачей первым и сумеет объяснить ее мне. Естественно 2 л пива при личной встрече только в Москве ;)