ich deinen Code jetzt nicht durchgeforstet, da mir das etwas zu lange dauern würde, aber ich hab mal versucht dein problem wie oben beschrieben zu lösen.
Allerdings war mir nicht ganz klar, was mit "...schreibe auf die webadresse inhalt..." gemeint ist.
Ich gehe jetzt einfach die Spalte B bis 500 durch und kopiere dann den Inhalt von A,B,C in Spalte D, wenn etwas in B steht.
Hoffe das kommt einigermaßen hin.
If rng.Value <> ""
bedeutet: wenn der Zellinhalt leer ist.
Vielleicht noch andere Bedingungen anhängen damit es geht.
If rng.Value <> "" or rng.value = 0