title: Create an array from unique values from column
body: <p>I found this code in this forumn. I want to copy this unique values into an array</p>
  
  <pre><code>Dim sheetName As String
  sheetName = Application.InputBox("Enter Sheet Name")
  
  Sheets(sheetName).Range("E:E").AdvancedFilter Action:=xlFilterCopy, _
  CopyToRange:=Sheets(sheetName).Range("O:O"), unique:=True
  </code></pre>