Sayın sledgeab;
Örnek uygulamayı ekleyemem. Çünkü eczanemle ilgili şifreleri içeriyor. Şifreleri sil dersen o zaman da program içerisinden sitenin ilgili bölümlerine ulaşamazsınız. Bu nedenle yapabilirsek bu şekilde yapmaya çalışalım. Ama sitenin listeyi verdiği anki kaynak kodunu verebilirim.(içinden tek tek gerçek verileri ayıklamam zaman alacak).
Sizin önerdiğiniz program aşağıdaki hatayı verdi:

hata satırı olarak ta:
Controls("Metin" & s) = .Rows(I).cells(J).innertext
kodunu verdi

Saygılarımla...