Insert multiple rows depends on cell value is getting error

Hi Friends,

I am trying to add insert rows using macro.
L column fills with numbers. if L1 value is 5 then below need to insert 5 rows.
I tried below Macro.
But it getting Error.
Please solve this and let me know whats wrong in it


Sub InsertRowswork1()

Dim LastNumber As Long: LastNumber = ActiveSheet.Range("L" & Rows.Count).End(xlUp).Row
While LastNumber >= 2
If Not IsEmpty(ActiveSheet.Range("L" & LastNumber)) Then
Dim NewRows As Long: NewRows = ActiveSheet.Range("L" & LastNumber).Value
Dim InsertIndex As Long: InsertIndex = 1
While InsertIndex <= NewRows
ActiveSheet.Range("L" & LastNumber + 1).EntireRow.Insert
InsertIndex = InsertIndex + 1
Wend
End If
LastNumber = LastNumber - 1
Wend

End Sub

Thank you Holger,
I have changed as per Forum Rule.

I got an error on highlighted row below.
Hints says NewRows = 0 LastNumber = 106 which are not have any data
Then I found hidden values are there in my sheet which are populate with formula and get no value in it. then using paste special value removed formula.
where formula result is "", these cells are includes in count after removed formula.

thats the reason Last number went to empty rows which are not containing any data
is that problem?
how can i remove hidden values in cells and change if any bugs in below code

Please Login or Register  to view this content.

Hi Holger,

when i try your code its inserting number of columns mentioned in first row.
But it should be continue till end of data.

I have more than 100 rows with different values for inserting number of columns

Hi Holger,
Thanks for your response.

I have cleared and got what i expected using below code

Please Login or Register  to view this content.