Insert Rows based on cell value and copy formulas

[Excel_not_Knower]

Hi,

I have a task where I need to split the Jobs into Tasks and these tasks has to be added in separate rows under the main job. Numbers of rows needed to be added is based on cell value.
Please suggest how to make this work?
A2- Main Job
B2-Task No
C2 - how many rows need to be added minus 1 ( as I already have 1 row as main Job). Mean when it says 4 tasks next to A3 JOB = 4-1 = 3 Rows to be added below A3.
And copy all formulas from Range D:Q into new rows

Before:

After:

 

[Excel_not_Knower]

Oh, Forgot to mention. If possible it would be handy if there's going to be an option to make a check. If rows (Tasks) are already been created then skip and check next one.

 

[Excel_not_Knower]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
  Cancel As Boolean)
    Dim cmdNew As CommandBarButton

    For Each icbc In Application.CommandBars("List Range Popup").Controls
        If icbc.Tag = "brccm" Then icbc.Delete
    Next icbc

    If Not Application.Intersect(Target, Range("SLJ_4[Job Number]")) _
      Is Nothing Then
        Set cmdNew = CommandBars("List Range Popup").Controls.Add
        With cmdNew
            .Caption = "Add Tasks"
            .OnAction = "Insert_Tasks"
            .BeginGroup = True
            .Tag = "brccm"
        End With
    End If
End Sub



Sub Insert_Tasks()


Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim HowMuchRowToInsert As Long
Dim AferWitchRowShouldIInsertRow As Long

On Error Resume Next
HowMuchRowToInsert = InputBox(Prompt:="How Many Rows to Insert?")
On Error GoTo 0

R = ActiveCell.Row

AferWitchRowShouldIInsertRow = R - 3

For I = 1 To HowMuchRowToInsert

Sheets("Ticksheet_1").ListObjects("SLJ_4").ListRows.Add (AferWitchRowShouldIInsertRow + I)


Next

Application.ScreenUpdating = True
Application.DisplayAlerts = True

Call CopyPaste

End Sub


Sub CopyPaste()

Dim LRow As Long


ActiveCell.Activate
ActiveCell.Copy '- What cell value to copy
LRow = Cells(Rows.Count, 1).End(xlUp).Row '- Count rows
For I = 4 To LRow 'Loop from 4th row
    If Cells(I, 1) = "" Then 'If cell is empty then paste new value
    Sheets("Ticksheet_1").Range(Cells(I, 1), Cells(I, 1)).PasteSpecial xlPasteValues
    End If
Next I
End Sub