siteyi arayarak bişiler buldum ve çözdüm,belki lazım olabilir diye veriyorum
Dim s As Long
Dim r As Long
t = Range("A1").Value + 1
s = 2
Range("A" & s & ":A" & t).Select
Selection.EntireRow.Select
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.