title: VBA Dragging down formulas (in multiple rows) to last row used
body: <p>I have formulas from columns O -> X and need them drag them to last row used. Below is the current code I am using:</p>
  
  <pre><code>Dim wkb As Workbook
  Dim wkbFrom As Workbook
  Dim wks As Worksheet
  Dim rng As Range
  Dim path As String, FilePart As String
  Dim TheFile
  Dim loc As String
  Dim Lastrow As Long
  
  Set wkb = ThisWorkbook
  loc = shPivot.Range("E11").Value
  path = shPivot.Range("E12").Value
  FilePart = Trim(shPivot.Range("E13").Value)
  TheFile = Dir(path &amp; "*" &amp; FilePart &amp; ".xls")
  Set wkbFrom = Workbooks.Open(loc &amp; path &amp; TheFile &amp; FilePart)
  Set wks = wkbFrom.Sheets("SUPPLIER_01_00028257_KIK CUSTOM")
  Set rng = wks.Range("A2:N500")
  
  'Copies range from report generated to share drive and pastes into the current week tab of open order report
  rng.Copy wkb.Sheets("Current Week").Range("A4")
  
  With ActiveSheet
  
      Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
      .Range("O4:X4").AutoFill .Range("O4:X4").Resize(Lastrow)
  
  End With
  </code></pre>
  
  <p>The code Lastrow is not dragging the formulas down </p>