Adding pre-populated rows under specific cells

[robotrobert]

Hi friends,
I recently started using Excel for a large worksheet and am hoping someone could help me with the following:
In my table in column Y, there will be 2 numbers alternating between 1 and 2 (Y2 is 1, Y2 is 2, Y3 is 1, and so on...)
In column X the images are represented (X2 is 'image 1', X3 is 'image 2', X4 is 'image 1', and so on...)
I need assistance to create a macro that will look at column Y, and underneath any cell that contains 2, to add X rows (I'm currently leaning towards 6 additional rows but may need 7 or 8) that contain specific text in cells in columns X and Y (i.e. a new row is created and contains 'image 3' in X4 and '3' in Y4, etc.)
I added a screenshot to show how it currently looks and what I hope to achieve. Any help is greatly appreciated!
Thank you!

 

[DanteAmor]

Hi and welcome to MrExcel.

How about:

Sub AddingCells()
  Dim a As Range
  For Each a In Range("X2", Range("X" & Rows.Count).End(3)).SpecialCells(xlCellTypeConstants).Areas
    a.Resize(1, 2).Offset(1).AutoFill a.Resize(6, 2).Offset(1), xlFillDefault
  Next
End Sub