title: VBA Autofill series starting at last cell with value and continuing to last row of adjacent columns
body: <p>I have seen similar questions on this subject, however no answers that are working for me. I'm trying to automate the autofill to continue a series (HT-1, HT-2, HT-3...etc.) down to the last row of spreadsheet. Basically I import new rows that won't have values in the B column. After importing more new rows I need to continue the series in B to the end of the new rows. I'm getting an error with the AutoFill method. Any suggestions?</p>
  <p><a href="https://i.stack.imgur.com/O0rGe.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/O0rGe.png" alt="pic of sheet" /></a></p>
  <p><a href="https://i.stack.imgur.com/762Tj.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/762Tj.png" alt="debug" /></a></p>
  <pre><code>Sub test()
  
  Dim wb As Workbook: Set wb = ThisWorkbook
  Dim source As Worksheet
  Dim main As Worksheet
  Dim lastRow As Long
  Dim typeLastrow As Long
  
  Set main = wb.Sheets(&quot;hangers&quot;)
  
  lastRow = main.Cells(main.Rows.Count, 1).End(xlUp).Row
  typeLastrow = main.Range(&quot;B&quot; &amp; main.Rows.Count).End(xlUp).Row
  Range(&quot;B&quot; &amp; typeLastrow).AutoFill Destination:=Range(&quot;B&quot; &amp; typeLastrow &amp; &quot;:B&quot; &amp; lastRow)
  End Sub 
  </code></pre>