Sub test()
Dim i, ii, iii, iv, v As Long
i = Sheets("main").Range("h" & Rows.Count).End(xlUp).Row
ii = Sheets("main").Range("a" & Rows.Count).End(xlUp).Row
'delete individual doctors sheetname
Application.DisplayAlerts = False
For v = 2 To Sheets.Count
Sheets(2).Delete
Next
Application.DisplayAlerts = True
'get unique doctor's name and put in columnH
Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"H1"), Unique:=True
'add sheet for each doctor's
For Each c In Sheets("main").Range("h2:h" & i)
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = c.Value
Next
Sheets("main").Columns("h").ClearContents
'get doctor's name from main and put each records in doctor's sheet
For iii = 2 To Sheets.Count
For iv = 2 To Sheets("main").Range("a" & Rows.Count).End(xlUp).Row
If Sheets(iii).Name = Sheets("main").Cells(iv, "a").Value Then
Sheets(iii).Range("a" & Rows.Count).End(xlUp).Offset(1).Resize(, 8) = Sheets("main").Cells(iv, "a").Resize(, 8).Value
End If
Next
Next
End Sub