Macro to Insert Rows

[howard]

I would like a macro that will insert 25 rows after the first blank row in col B starting
from Row 6

Your assistance in this regard will be most appreciated

 

[VoG]

Try

Sub insrow()
Dim LR As Long, Found As Range
LR = Range("B" & Rows.Count).End(xlUp).Row
Set Found = Range("B7:B" & LR).Find(what:="", LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then Found.Resize(25).EntireRow.Insert
End Sub

 

[howard]

Hi peter

Thanks for the help, much appreciated