VBA - Issues with code to insert row depending on cell value, then move down

[Estrella]

columnA aaa	columnB 1
bbb	0
ccc	0
ddd	0
eee	4
fgh	2

<tbody>
</tbody>

Hi there, am trying to write a code so rows are ( or not ) inserted depending on the value of the cell.
If cell value is 0 or 1, there shoulb be zero row inserted.
if cell value is 2 or greater, there should be 2 or more rows inserted.
Rows need to be inserted down.

Below is the code I have started to write but as I am new with VBA I am really struggling, does anybody knows how to write it properly? Many thanks

Sub jasmine()


Application.ScreenUpdating = False


Dim irow As Integer, lastrow As Integer

For irow = 1 To lastrow

If IsEmpty (Range("B" & irow))
Shift.xlDown
Else: ActiveCell.EntireRow.Resize(rowsize:=ActiveCell.Value).Insert Shift:=xlDown
End If


Columns("b").ClearContents


Application.ScreenUpdating = True


End Sub

 

[MickG]

Try:-

[COLOR=navy]Sub[/COLOR] MG11Aug16
[COLOR=navy]Dim[/COLOR] Lst [COLOR=navy]As[/COLOR] [COLOR=navy]Long[/COLOR]
[COLOR=navy]Dim[/COLOR] n [COLOR=navy]As[/COLOR] [COLOR=navy]Long[/COLOR]
Lst = Range("B" & Rows.count).End(xlUp).Row
[COLOR=navy]For[/COLOR] n = Lst To 1 [COLOR=navy]Step[/COLOR] -1
    [COLOR=navy]With[/COLOR] Range("B" & n)
        [COLOR=navy]If[/COLOR] .Value > 1 [COLOR=navy]Then[/COLOR]
          .EntireRow.Resize(.Value).Insert
        [COLOR=navy]End[/COLOR] If
  [COLOR=navy]End[/COLOR] With
[COLOR=navy]Next[/COLOR] n
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

 

[Estrella]

Thank you so much Mick.
Works beautifully, but is there a way to insert rows down instead of up?
If that makes any sense.
So if B1 = 2, insert 2 rows so will have B1 = 2 and 2 blank lines in B2 and B3?

 

[MickG]

Try changing the line below:-

 .EntireRow.Offset(1).Resize(.Value).Insert

 

[Estrella]

Smooth! Many thanks!!

 

[MickG]

Your welcome
Regards mick