VBA - create new sheets from a dynamic list

[2019gibsonSG]

I have a worksheet named "RawInt" that looks like this:

I need code for a macro that starts at cell BO6 and goes down the column creating a new sheet for each cell value. The data in column BO always begins at BO6, but number of records in column BO change from project to project so the code would have to stop once an empty cell is detected. The sheets would need to be added after sheet "RawInt", in the same order as the data in column BO.

I've done some googling and tried code from several different sources but everything I've tried either doesn't run, doesn't apply to the structure of my data, or runs so slowly that Excel freezes and I have to force quit. Help is greatly appreciated.

 

[My Aswer Is This]

Try this:

Sub Make_New_Sheets()
'Modified  3/28/2022  9:01:04 PM  EDT
On Error GoTo M
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Sheets("RawInt").Cells(Rows.Count, "BO").End(xlUp).Row
    For i = Lastrow To 6 Step -1
        Sheets.Add(After:=Sheets("RawInt")).Name = Sheets("RawInt").Cells(i, "BO").Value
    Next
Application.ScreenUpdating = True
Exit Sub
M:
MsgBox "We had a problem" & vbNewLine & "You may be using a improper sheet name"
End Sub