How can I add 15 rows when my column H begins with 'SB' please?
This is a snippet of the data I have:
I need to insert 15 rows under each occurrence of a cell beginning with 'SB' in column H[Data.SOURCE]. Here are some examples highlighted, of when names begin with 'SB':
So it would begin to look like this:
I have tried lots of googling and this stack page, but it hasn't worked: How to insert a blank row based on cell value
Any help would be appreciated. Thank you!
Dim cRows as Long, i as long,j as Long
cRows=ActiveSheet.UsedRange.Rows.count
For i=cRows to 1 step-1
If Left(Cells(i,8),2)="SB" Then
For j=1 to 15
Rows(i+1).EntireRow.Insert
next j
End If
Next i
Something like that