Для чего все - это нужно (может есть способ проще).  
У меня есть таблица "Сделки", один из столбцов таблицы имеет название "Бумага сокращенно" с помощью кода VBA я буду выводить из этого столбца уникальный значения и мне нужно определить первую и последнию строку  с данными, чтобы код работал только выделенном массиве.

{quote}{login=}{date=14.12.2011 09:34}{thema=}{post}Для вашего задания выделять диапазон (.Select) совсем не нужно.  
Приложите небольшой пример и скажите, что нужно сделать{/post}{/quote}

Можно и так  Range("A4:A" & Range("A5").End(xlDown).Row)  - что тут усложняется.

\вариант с коллекией  
 
Sub io()  
Dim z$(), v, i&, x As New Collection  
With ActiveSheet  
   On Error Resume Next  
   ReDim z(1 To .UsedRange.Rows.Count, 1 To 1)  
   For Each v In Range(.[a4], .Cells(.Rows.Count, 1).End(xlUp)).Value
       If v <> "" Then  
           If x.Item(v) = "" Then  
               i = i + 1: z(i, 1) = v: x.Add v, v  
           End If  
       End If  
   Next  
   .[e5].Resize(i) = z()
End With  
End Sub

Hugo, по-моему, нужно писать так  
 
               If Not .Exists(iText$) Then  
                   .Add iText$, iText$  
                   ii = ii + 1  
                   b(ii, 1) = a(i, 1)  
               End If  
 
Иначе мы просто заполняем массив b всеми значениями массива а и просто выводим такой же полный список в столбец С. А нужно заполнять только не повторяющимися (для чего собственно и Словарь используется в макросе)  
 
Для афтора весь твой код такой  
 
Private Sub GetUniqueValueH()  
   With ThisWorkbook.Worksheets(1)  
       Dim a(), i&, ii&  
       a = .UsedRange.Columns(1).Value  
       ReDim b(1 To UBound(a), 1 To 1)  
       With CreateObject("Scripting.Dictionary")  
           For i = 2 To UBound(a)  
               iText$ = a(i, 1)  
               If Not .Exists(iText$) Then  
                   .Add iText$, iText$  
                   ii = ii + 1  
                   b(ii, 1) = a(i, 1)  
               End If  
           Next  
       End With  
       With .Range("C4").Resize(UBound(a))  
           .EntireColumn.Clear  
           .Value = b  
       End With  
   End With  
End Sub

Получился такой окончательный вариант.    
 
 With Worksheets("TableDeal")  
        Dim iSource As Range, iCell As Range  
        Set iSource = .Range("TableDeal[Бумага сокращенно]")
   With CreateObject("Scripting.Dictionary")  
        For Each iCell In iSource  
            iText$ = CStr(iCell.Value)  
            If Not .Exists(iText$) Then .Add iText$, iText$  
        Next  
        iItems = Application.Transpose(.Items)  
   End With  
   With Worksheets("Report").Range("A1").Resize(UBound(iItems))  
        .EntireColumn.Clear  
        .Value = iItems  
   End With  
 End With  
End Sub  
 
Может что лишние убрать?  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

1) Лучше (быстрее) то, что предложил Hugo, а дополнил я.  
2) в вашем коде есть необъявленные переменные, а именно: iText, iItems()  
3) в вашем коде так же попадает пустая строка и вы её переносите на лист Report. Чтобы такого не было нужно в коде дописать проверку на длину текста  
Например, так  
 
               If Len(iText) Then  
                   If Not .Exists(iText$) Then .Add iText$, iText$  
               End If  
 
Но быстрый вариант тот, который предложил Hugo. Вы обращаетесь к каждой ячейке Диапазона iSource, это достаточно медленный вариант работы макроса. А Hugo сразу берёт весь диапазон в массив и работает уже с массивом данных

{quote}{login=KIA}{date=14.12.2011 10:46}{thema=}{post}1) Лучше (быстрее) то, что предложил Hugo, а дополнил я.  
{/post}{/quote}  
Спасибо за разъяснения, возьму вариант  Hugo с вашими дополнениями в работу.  
А есть какие нибудь функции, которые выводят время выполнения процедуры, чтобы себя проверить, что эффективней работает ?

откуда меня все знают) ^_^

{quote}{login=KIA}{date=14.12.2011 10:27}{thema=}{post}Hugo, по-моему, нужно писать так  
{/post}{/quote}  
Да, поторопился, ошибка вышла :( Так было у автора - недоработал в этом месте...  
Спасибо, что заметили :)

KIA, а вот тут  
With .Range("C4").Resize(UBound(a))  
.EntireColumn.Clear  
.Value = b  
End With  
 
лучше всёж выгружать Resize(ii) - чтоб лишнюю пустоту не перемещать. Микросекунды, но всёж, только вот предварительную очистку нужно посмотреть - что она там зачистит.  
Но впрочем в варианте автора она тоже очищала только по количеству вытянутых уникальных.  
 
merdek - перебор ячеек напрямую будет намного медленнее перебора массива, да там ещё и Transpose время возьмёт. А тут сразу получаем выходной массив, который можно выгружать на лист.

Я не про Ваш ник - я вообще про первый вопрос на форуме :-) Автор - Семен.  
Наверное, что-то Вы перепутали. Или пропали темы за два года.

возможно, что пропали, я помню при мне грохался форум несколько раз. Разные атаки хакеров были, тогда ещё и защиты от спама не было. Это потом Николай уже переехал на более стабильный хостинг. А я помню со старым хостингом форум лежал по неделе (может чуть меньше)

И не говори, Юр.  
 
P.S. Pavel55 )