Sub A_1()
    Application.ScreenUpdating = False
    'удаляем листы
    Application.DisplayAlerts = False
    For Each u In ThisWorkbook.Sheets
        x = Sheets.Count
        If u.Index > 1 And u.Index < x Then u.Delete
    Next
    Application.DisplayAlerts = True
    'проходимся по фио
    a = Cells(Rows.Count, "j").End(xlUp).Row
    For b = 2 To a
        c = Sheets(1).Range("j" & b).Value 'фио
        d = Application.Match(c, Sheets(1).Range("j1:j" & b), 0) 'ищем первую строку с фио
        If b = d Then 'если фио встречается вперые
            Sheets.Add After:=Sheets(Sheets.Count - 1)  'создаем лист
            Sheets(Sheets.Count - 1).Name = c           'назовем его = фио
            'копируем шапку....................................
            Sheets(1).Range("a1:b1").Copy Sheets(c).Range("a1")
            Sheets(1).Range("d1:i1").Copy Sheets(c).Range("c1")
        End If
        'копируем данные
        e = Sheets(c).Cells(Rows.Count, "a").End(xlUp).Row + 1 'строка вставки
        Sheets(c).Range("a" & e) = Sheets(1).Cells(b + 1, "a").End(xlUp).Value
        Sheets(c).Range("b" & e) = Sheets(1).Cells(b + 1, "b").End(xlUp).Value
        Sheets(c).Range("c" & e & ":h" & e) = Sheets(1).Range("d" & b & ":i" & b).Value
    Next
    Application.ScreenUpdating = True
End Sub

=ДВССЫЛ("'"&J2&"'!I"&СТРОКА()-ПОИСКПОЗ(J2;J$2:J2;)+1)&""

    Range("k2:k" & u).FormulaR1C1 = "=INDIRECT(""'""&RC[-1]&""'!I""&ROW()-MATCH(RC[-1],R2C[-1]:RC[-1],)+1)&"""""