title: Vba list unique values down a column from row x onwards?
body: <p>I have two worksheets.</p>
  
  <p>Worksheet 2:</p>
  
  <pre><code>Column C 
  A
  A
  B
  B
  C
  D
  E
  E
  F
  G
  </code></pre>
  
  <p>Worksheet 1:</p>
  
  <pre><code>Column G
  A
  B
  C
  D
  E
  F
  G
  </code></pre>
  
  <p>As per the above, i am trying to create a list of unique values on sheet 1 column G from those in column C on sheet 2.</p>
  
  <p>Here is my code so far:</p>
  
  <pre><code>Sub LIST()
     Dim Col As New Collection
      Dim itm
      Dim i As Long
      Dim CellVal As Variant
      Dim LastRow As Long
  
      '~~&gt; Lets say looping through Row 1 to 22 For
      '~~&gt; Range("A1:A22") as mentioned in your recent comment
  
      LastRow = ThisWorkbook.Worksheets("Data").Range("C" &amp; Rows.Count).End(xlUp).Row  'Finds the last used row
  
      For i = 1 To LastRow
          CellVal = Sheets("Data").Range("C" &amp; i).value
          On Error Resume Next
      Next i
  
      For Each itm In Columns(7)
      itm
      Next
      End Sub
  </code></pre>
  
  <p>I am brand new to vba, please can somsone show me how to get this to work properly?</p>
  
  <p>P.S. i need this to list values in column G on sheet 1 from Row 16 onwards.</p>