Sziasztok!

A segítségeteket szeretném kérni.

A következő makróval van problémám (adott oszlopban az utolsó cellára ugrik, amiben érték van):

Sub végéreugrik()
For Each cella In Columns("A:A").SpecialCells(xlCellTypeBlanks)

x = 1
sor = cella.Row
oszlop = cella.Column
sox = sor - 1
Cells(sox, oszlop).Select

If x = 1 Then End

Next
End Sub

Alapvetően jól működik, de csak nem védett lapon és hát nekem védett lapon kellene használnom.

Valakinek valami ötlet?