title: Filldown does not populate cells
body: <p><strong>Problem:</strong></p>
  <p>I'm experiencing a problem in VBA for Excel 365 where the range.filldown function does not fill the specified cells in my worksheet.</p>
  <p><strong>Code Description:</strong></p>
  <p>My code inserts a row above the currently selected cell if the row is greater than 20.  (My workbook has a header section where I don't want new rows added.)</p>
  <p>After that, I then use the range.filldown function to fill the cells where I have written formulas.  (When testing, I've been adding the line to the middle of my data set; so, there is data both above and below the line that I am inserting.</p>
  <p><strong>Results/Issue:</strong></p>
  <p>The first two filldown statements that key off of .Cells work as intended and populate with formulas when the code is finished.  However, the filldown that uses .Range does nothing -- the code executes without error and the cells remain empty.</p>
  <p><strong>Other Callouts</strong></p>
  <ul>
  <li><p>I've included a comment calling out the line of code that is not working as intended.</p>
  </li>
  <li><p>Using a table is not an option for my use case.</p>
  </li>
  <li><p>I use three constants which are declared elsewhere in my code.  I've included them for the sake of completeness, but they are currently commented out.</p>
  <pre><code>Sub insert_sheet_row()
      'Inserts a row into the sheet above the currently selected cell.  Ranges with formulas are specified in
      'this sub and are updated via filldown.
  
      Dim current_row As Integer
      Dim fcst_total_col_1 As Integer
      Dim fcst_total_col_2 As Integer
      Dim fcst_total_col_3 As Integer
  
      '''Constants included for upload to Stack Overflow
  
      'Dim FCST_START_COL As Integer
      'Dim FCST_END_COL As Integer
      'Dim TM_TBL_HEADER_ROW As Integer
  
      'FCST_START_COL = 14
      'FCST_END_COL = 88
      'TM_TBL_HEADER_ROW = 20
  
      '''End Constants '''
  
  
      'Assign the current row from the active cell.
      current_row = Selection.Row
  
      'Pattern to select ranges that contain formulas
      fcst_total_col_1 = FCST_START_COL + 4
      fcst_total_col_2 = fcst_total_col_1 + 5
      fcst_total_col_3 = fcst_total_col_2 + 5
  
      'Only run if current_row is greater than table header -- currently set to integer 20.
      If current_row &gt; TM_TBL_HEADER_ROW Then
  
          'Insert new row
          Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  
          'Fill formulas for appropriate ranges.
  
          '''These work'''
          ActiveSheet.Cells(current_row, fcst_total_col_1).FillDown
          ActiveSheet.Cells(current_row, fcst_total_col_2).FillDown
  
          '''This does not work'''
          ActiveSheet.Range(Cells(current_row, fcst_total_col_3), Cells(current_row, FCST_END_COL)).FillDown
  
          'Printing range for debugging purposes
          Debug.Print (current_row &amp; &quot; &quot; &amp; fcst_total_col_3 &amp; &quot; to &quot; &amp; current_row &amp; &quot; &quot; &amp; FCST_END_COL)
      End If
  
  End Sub
  </code></pre>
  </li>
  </ul>