title: Autofill blanks after filtering
body: <p>I need to filter my data, then fill the blank cells in column P using data in column F.</p>
  <p>For example, there is a blank cell in cell P34, I have to fill that cell using the cell F34. It should be the same row.</p>
  <pre class="lang-vb prettyprint-override"><code>Selection.AutoFilter
  ActiveSheet.Range(&quot;$A:$BH&quot;).AutoFilter Field:=16, Criteria1:=&quot;=&quot;
  Dim rngLookup As Range
  'assume data that will fill blanks is in column F
  With Sheet1
      '  Set rngLookup = .Range(.Range(&quot;F2&quot;), .Range(&quot;F&quot; &amp; .Rows.Count).End(xlUp))
      Set rngLookup = .Range(.Range(&quot;F2&quot;), Sheet1.Range(&quot;F&quot; &amp;.Rows.Count).End(xlUp))
  End With
  With Sheet1
      Dim rngSearch As Range
      'assume blank cells are in column P
      Set rngSearch = .Range(.Range(&quot;P2&quot;), .Range(&quot;P&quot; &amp; .Rows.Count).End(xlUp))
      Set rngSearch = rngSearch.SpecialCells(xlCellTypeBlanks)
      Dim cel As Range, P As Integer
      P = 1
      For Each cel In rngSearch
          cel.Value = rngLookup.Cells(P, 1)
          If P = rngLookup.Rows.Count Then P = 1 Else: P = P + 1
      Next
  End With
  </code></pre>
  <p>It fills the data from cell F2 onwards.<br />
  I need to fill the blanks coming from the same row.</p>