en son satıra gelmesinin sebebi sayfa aktif olduğunda çalışan kodmuş

Private Sub Worksheet_Activate()

Dim alan, satırsayısı, sonsatır

Set alan = Cells(1, 1).CurrentRegion

satırsayısı = alan.Rows.Count

sonsatır = satırsayısı + 1

'Cells(sonsatır, 1).Select '<== satır son satırdaki ilk hücreye gitmesine sebep oluyor

Cells(1, 1).Select '<== eğer komutu bu satırla değiştirirseniz  cell( satır , sütun) gider



End Sub

---

ne zahmeti tam aksine ben de öğreniyorum bu arada )
iyi çalışmalar