Insert Rows

[MCC123]

Hello all,
I created a workbook to keep track of maintenance records for some of our certifications and equipment. I am trying to insert a row below each header row for continuous data it works off of a command button and at the end of a year it will add a new row for each cert or piece of equipment copying the formulas and conditional formatting. I can provide the code upon request. below is an example of the format. Thanks for any help!

Example:

Equip 1
insert row
Equip 2
insert row
Equip 3
insert row

 

[MCC123]

I need to insert a row after b15, then b16, then b17 and it would need to be continuous after clicking the command button to start a new year.... it would insert a row between b15 and b16, b16 and b17, b17 and b18 and so on and then be able to insert a row after the last line of data for each piece of equipment. Can anyone steer me in the right direction? Thanks in advance.

Sub insertrowLIR()

Dim Ans
Ans = MsgBox("Are you sure you want to insert rows?", vbOKCancel)
If Ans = vbOK Then
Worksheets("Locomotive Insp. Report").Rows(16).Insert shift:=xlShiftDown
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(15).Copy
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(16).Select
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(16).PasteSpecial xlPasteFormats

Worksheets("Locomotive Insp. Report").Rows(18).Insert shift:=xlShiftDown
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(17).Copy
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(18).Select
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(18).PasteSpecial xlPasteFormats
Worksheets("Locomotive Insp. Report").Rows(20).Insert shift:=xlShiftDown
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(19).Copy
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(20).Select
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(20).PasteSpecial xlPasteFormats
Worksheets("Locomotive Insp. Report").Rows(22).Insert shift:=xlShiftDown
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(21).Copy
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(22).Select
ThisWorkbook.Sheets("Locomotive Insp. Report").Rows(22).PasteSpecial xlPasteFormats
Application.CutCopyMode = False