aflæse org chart lavet i Excel

Hej

Har fået udleveret org charts lavet i Excel.
Afdelinger er markeret med gråt (og fed skrift).
Medarbejdere er placeret nedenunder (hvid+ikke fed skrift).
Jeg vil gerne:

indsæt 2 kolonner til venstre og navngiv dem x,y

for hver celle (startende i d1) i det udfyldte område

If cell.color = GREY then
Cell ("A" + outputRow) .value = cell.value
Cell ("A" + outputRow) .color = grey
Cell("B" + outputrow).value = cell(row=row+1:colum=Colum).value  (LÆS: cellen nedenunder den før..)
outputrow=outputrow+1
End if
Next

Håber der er nogen, der gider hjælpe - jeg ved I kan :-)

mvh. Anja