title: Multiple cells AutoFilter
body: <p>I have a code that selects non empty cells in column C. Now If I want to select these cells in my autofilter it only pics the first found value of OutRng. How do i fix this?</p>
  <pre><code>Sub SelectNonBlankCells()
  
      Sheets(&quot;Rekenblad&quot;).Select
  
      Dim Rng As Range
      Dim OutRng As Range
      Dim xTitle As String
      SearchCol = &quot;10&quot;
  
      On Error Resume Next
  
      xTitle = Range(&quot;C:C&quot;)
      Set InputRng = Range(&quot;C:C&quot;)
  
      For Each Rng In InputRng
          If Not Rng.Value = &quot;&quot; Then
              If OutRng Is Nothing Then
                  Set OutRng = Rng
              Else
                  Set OutRng = Application.Union(OutRng, Rng)
              End If
          End If
      Next
  
      If Not (OutRng Is Nothing) Then
          OutRng.Copy
  
          Sheets(&quot;Plakken&quot;).Select
          ActiveSheet.Range(&quot;$A$1:$K$13&quot;).AutoFilter Field:=10, Criteria1:=Array(OutRng) _
              , Operator:=xlFilterValues
      End If
  End Sub
  </code></pre>