Something like this,

Sub dave()
  Dim x
    Application.ScreenUpdating = 0
     x = Cells(1, 1).Resize(23).Value
      For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
      j = 1
        Do Until j > 23
          Cells(i, 1).EntireRow.Insert
          j = j + 1
        Loop
         Cells(i, 1).Resize(23).Value = x
      Next
    Application.ScreenUpdating = 1
End Sub