Hey gang,
I'm a super newbie on this VBA coding but I need help in doing the below.
I have data that looks like this
imgur: the simple image sharer
I need to create a macro that will insert a row that breaks up each BS row(column A).
For example,
BS
Jb
Jb
Jb
BS
Jb
Jb
Jb
jb
jb
BS
jb
BS
jb
jb
etc
Here's what I have done that I compiled from muitiple pages but it still doesn't work:
Sub insertspace()
Dim rng As Range
Dim i As Integer
Dim lastrow As Integer
Dim s As Integer
lastrow = ActiveSheet.UsedRange.Rows.Count
For i = 1 To lastrow
If Cells(i, 1).Value = "BS" Then
ActiveCell.Offset(1, 0).EntireRow.Insert
Exit For
End If
i = i + 1
s = ActiveCell.Address
Next i
s = ActiveCell.Address
I'm a super newbie on this VBA coding but I need help in doing the below.
I have data that looks like this
imgur: the simple image sharer
I need to create a macro that will insert a row that breaks up each BS row(column A).
For example,
BS
Jb
Jb
Jb
BS
Jb
Jb
Jb
jb
jb
BS
jb
BS
jb
jb
etc
Here's what I have done that I compiled from muitiple pages but it still doesn't work:
Sub insertspace()
Dim rng As Range
Dim i As Integer
Dim lastrow As Integer
Dim s As Integer
lastrow = ActiveSheet.UsedRange.Rows.Count
For i = 1 To lastrow
If Cells(i, 1).Value = "BS" Then
ActiveCell.Offset(1, 0).EntireRow.Insert
Exit For
End If
i = i + 1
s = ActiveCell.Address
Next i
s = ActiveCell.Address