Sub atla()
Columns("b").Clear
k = 1
For t = 1 To Application.CountA(Columns(1))
[a1].Copy Destination:=[b1]
k = k + 1
Cells(t * 5, "a").Copy Destination:=Cells(k, "b")
Next
End Sub
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.