boşluğa kadar seç

[kennsa]

mesela excel tablosunda a1 den a50 kadar dolu sutun var ben bunu otomatik seçtirmek istiyorum son sutuna gelene kadar yani boşluğa kendi seçsin bunu istememein sebebi aynı işi hep farklı sayfalarda yapıyorum bunu macroya çevirip işimi kolaylaştırmak istiyorum yardımcı olurmusunuz ?
veya şöyle sorıyım boşluğa kadar giden satıra taplo eklemek istiyorum macro ile otomatik olarak

 

[EErkut]

Sub BoslugaKadarGit()
Range(Selection, Selection.End(xlDown)).Select
End Sub

 

[zipir123]

grafik

mesela excel tablosunda a1 den a50 kadar dolu sutun var ben bunu otomatik seçtirmek istiyorum son sutuna gelene kadar yani boşluğa kendi seçsin bunu istememein sebebi aynı işi hep farklı sayfalarda yapıyorum bunu macroya çevirip işimi kolaylaştırmak istiyorum yardımcı olurmusunuz ?
veya şöyle sorıyım boşluğa kadar giden satıra taplo eklemek istiyorum macro ile otomatik olarak

Sn. Kennsa dosyanız ektedir.
istediğiniz böyle birşeymi?