Kodda Değişiklik

[engin52]

Üstadlar Merhabalar,
Eklediğim dosyada kod sayfasında yazılı bir kod var. Bu kodda değişiklik yaparak bir tablo oluşturdum ancak bir yerde takıldım. Yapmak istediğimi sayfalar üzerinde gösterdim. yardımlarınızı talep ediyorum.
Şimdiden Teşekkürler.

 

[engin52]

Kod sayfasında hatalı bıraktığım kod !!!
For m = 10 To sh.Range("A6500").End(10).Row olarak kalmış
For m = 3 To sh.Range("A6500").End(3).Row olacak