IF B7 is different to B6 > Insert Row

[JumboCactuar]

Hi,
sorry if title is confusing:

I have data in Columns B:K starting at row 6

Column B has userIDs:

00804
00804
00102
00102
00102
00695
00791

I would like to split these by User ID so after 00804 there is a blank row, and so on to the bottom

thanks for any help

 

[yky]

Re: Help Needed: IF B7 is different to B6 > Insert Row

Try this:

Sub test()

Const first_row = 6
Dim i As Integer
Dim last_row As Integer


last_row = Cells(1048576, 2).End(xlUp).Row


For i = last_row To first_row Step -1


If Cells(i, 2) <> Cells(i - 1, 2) Then
Cells(i, 2).EntireRow.Insert
End If


Next i


End Sub