title: Macro for copying a specific Row of formulas into newly created rows
body: <p>I recently posted a question, and unfortunately did not get very far with any answers. I have re-worked my macro to mirror a similar scenario I found elsewhere. The problem is I am now getting stuck at the very end. </p>
  
  <p>Purpose of the macro:
  1. Beneath the selected cell, I need to insert x new rows = entered months -1</p>
  
  <ol>
  <li><p>In the first inserted row, I need a set of relative formulas that can be found in the Actual Row 2 of the current worksheet (basically copy and paste row 2 into the first row created)</p></li>
  <li><p>In the subsequent inserted rows, I need a set of relative formulas that can be found in the Actual Row 3 of the current worksheet </p></li>
  </ol>
  
  <p>As is, the macro does what I want, except I don't know how to paste row 3 in all subsequent rows. I'm assuming I need some conditional statement?</p>
  
  <p>As mentioned in my last post, I am trying to teach myself VBA, so any help would be appreciated!!</p>
  
  <pre><code>Sub InsertMonthsAndFillFormulas(Optional vRows As Long = 0)
  Dim x As Long
  ActiveCell.EntireRow.Select  'So you do not have to preselect entire row
  If vRows = 0 Then
  vRows = Application.InputBox(prompt:= _
    "Enter the total number of months in the program", Title:="Add Months", _
    Default:=1, Type:=1) 'Default for 1 row, type 1 is number
  If vRows = False Then Exit Sub
  End If
  
  Dim sht As Worksheet, shts() As String, i As Long
  ReDim shts(1 To Worksheets.Application.ActiveWorkbook. _
     Windows(1).SelectedSheets.Count)
  i = 0
  For Each sht In _
     Application.ActiveWorkbook.Windows(1).SelectedSheets
  Sheets(sht.Name).Select
  i = i + 1
  shts(i) = sht.Name
  
  x = Sheets(sht.Name).UsedRange.Rows.Count 'lastcell fixup
  
  Selection.Resize(rowsize:=2).Rows(2).EntireRow. _
   Resize(rowsize:=vRows - 1).Insert Shift:=xlDown
  
  Rows(2).EntireRow.Copy Destination:=Selection.Offset(1).Resize( _
       rowsize:=1)
  Rows(3).EntireRow.Copy Destination:=Selection.Offset(2).Resize( _
       rowsize:=1)
  On Error Resume Next
  Next sht
  Worksheets(shts).Select
  End Sub
  </code></pre>