title: remove duplicates in named range
body: <p>i have a problem which i believe you will find a simple solution
  i am over my head with this one</p>
  
  <p>I have code that copies a range from another workbook, pastes it in the current workbook, and then removes the duplicates</p>
  
  <p>Problem is, after removing the duplicates, it thinks the range is still as long as before removing the duplicates (it includes the blank spaces)</p>
  
  <p>example:</p>
  
  <p>allcontacts is rows 1-10</p>
  
  <p>i paste 10 rows from another workbook
  3 are new, so it removes 7 duplicates</p>
  
  <p>my range (in name manager) should be 1:13, but it shows 1:20 with 7 blanks at the bottom</p>
  
  <pre><code>'Dim currentworkbook As String
  'currentworkbook = ActiveWorkbook.Name
  'Workbooks.Open ("q:\mis\_estimatorm1.xlsm")
    'Workbooks("_estimatorm1.xlsm").Worksheets("contacts").Range("Allcontacts").Copy
  'Workbooks(currentworkbook).Activate
  'Sheets("contacts").Rows("3:3").Select
  'Selection.Insert Shift:=xlDown
  'Application.CutCopyMode = False
  
   '     Sheets("contacts").Activate
   '     Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
    '      :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  
  ActiveSheet.Range("allcontacts").RemoveDuplicates Columns:=Array(1, 3, 4), Header:=xlNo
  
  
  'Columns("A:m").Select
  
     ' ActiveWorkbook.Worksheets("CONTACTS").Sort.SortFields.Clear
      'ActiveWorkbook.Worksheets("CONTACTS").Sort.SortFields.Add Key:=Range( _
       '   "A2:A2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        '  xlSortNormal
      'With ActiveWorkbook.Worksheets("CONTACTS").Sort
       '   .SetRange Range("A1:m2000")
        '  .Header = xlYes
         ' .MatchCase = False
          '.Orientation = xlTopToBottom
          '.SortMethod = xlPinYin
          '.Apply
      'End With
  Sheets("QUOTE").Activate
  Range("A10").Select
  </code></pre>
  
  <p>I made everything notes except for the line of code that i know i causing the problem</p>