how to correct the watershed tranform

hello, i have applied waterhsed tranfrom on the image, but it doesnt seem to correct the image accurately. and i dont know how to change it . i request you to kindly help me.

%%watershed transform

D = bwdist(~I);

D = -(D);

D1 = imgaussfilt(D, 10);

L = watershed(D1);

L(~I) = 0;

BW2 = L > 0;

%%

% % BOUNDING BOXES AROUND ALL THE CELLS

label = label2rgb(L,'jet',[0.5 0.5 0.5]);

s = regionprops('table',BW2);

figure

imshowpair(rbc,label,'blend')

hold on

for kk = 1:height(s)

rectangle(...

'Position', s.BoundingBox(kk,:),...

'EdgeColor', 'k')

text(s.BoundingBox(kk,1),s.BoundingBox(kk,2)-15,...

num2str(kk),...

'FontSize', 6);

end