Insert row automatically with correct format and drop down list

Hi - Try this.., It is working fine
Line insertion will start from the selection CELL

Sub Insert_Blank_Rows()
On Error GoTo ExitLoop
     'Select last row in worksheet.
    Selection.End(xlDown).Select
     
    Do Until ActiveCell.Row = 1
        ActiveCell.EntireRow.Insert shift:=xlDown
        ActiveCell.Offset(-44, 0).Select 'Insert @ 44th rows [change as per requirement]
    Loop
ExitLoop:
End Sub