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

[Estrella]

[TABLE="width: 69"]
<tbody>[TR]
[TD]columnA
aaa[/TD]
[TD="align: right"]columnB
1[/TD]
[/TR]
[TR]
[TD]bbb[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD]ccc[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD]ddd[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD]eee[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD]fgh[/TD]
[TD="align: right"]2[/TD]
[/TR]
</tbody>[/TABLE]

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