Si es con formulas de excel, esta es mi solucion, si es con macro tendrias que darnos la informacion completa acerca de los requerimientos de la macro.
(A2) 7986
(B2) Marques, Adrian
(C2) =ESPACIOS(IZQUIERDA(B2,ENCONTRAR(",",B2)-1))
(D2) =ESPACIOS(DERECHA(B2,ENCONTRAR(",",B2)-1))
(E2)...