/VBA/Excel insert blank row for value change in column

Excel insert blank row for value change in column

Sub InsertRowsAtValueChangeColumnB()
  Dim X As Long, LastRow As Long
  Const DataCol As String = "B"
  Const StartRow = 2
  LastRow = Cells(Rows.Count, DataCol).End(xlUp).Row
  Application.ScreenUpdating = False
  For X = LastRow To StartRow + 1 Step -1
    If Cells(X, DataCol).Value <> Cells(X - 1, DataCol) Then Rows(X).Insert
  Next
  Application.ScreenUpdating = True
End Sub

https://www.youtube.com/watch?time_continue=3&v=qWbaGnZlLn8&feature=emb_logo

Similar codes

0 vote223 views1 answer
Vba full date format
VBA
0 vote273 views1 answer
Vba change active sheet
VBA
0 vote247 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote244 views1 answer
Convert number to minutes in vba
VBA
2 votes251 views2 answers
Excel vba if sunday or staurday
VBA
0 vote215 views1 answer
Vba copy paste value only
VBA
3 votes234 views1 answer
Vba make long from two words
VBA
0 vote227 views1 answer
Vba get application version
VBA
0 vote226 views1 answer
Vbscript remove spaces from string
VBA
1 vote235 views2 answers
Excel vba password protect
VBA