title: VBA Auto fill visible cells (filtered range) with xlFillSeries
body: <p>I want to fill in 2..N integer series into filtered/visible range.</p>
  
  <p>This code fills in the series but ignores the filtered range:</p>
  
  <pre><code>COL_SID_CURRENT = 3
  COL_SID_CURRENT_STR = "c"
  ROW_LAST = ActiveSheet.UsedRange.Rows.Count
  
  ' Start the series with value 2 in cell "c2"
  Cells(2, COL_SID_CURRENT).FormulaR1C1 = "2"
  
  aRangeStr = "" &amp; COL_SID_CURRENT_STR &amp; "2"      ' -&gt; "c2"
  Range(aRangeStr).Select
  
  aRangeStr = aRangeStr &amp; ":" &amp; COL_SID_CURRENT_STR &amp; ROW_LAST      ' -&gt; "c2:c24"
  Selection.AutoFill Destination:=Range(aRangeStr),Type:=xlFillSeries 
  </code></pre>
  
  <p>I've tried to add the <code>xlCellTypeVisible</code> into the code but none of my combinations worked:</p>
  
  <pre><code>Range(aRangeStr).SpecialCells(xlCellTypeVisible).Select
  Selection.AutoFill Destination:=Range(aRangeStr).SpecialCells(xlCellTypeVisible), _
     Type:=xlFillSeries 
  </code></pre>
  
  <p>Any hint how to fill the series only on filtered/visible cells?</p>