Rivin viimeinen

Alla oleva koodi etsii viimeisen käytössä olevan rivin sarakkeen "A" perusteella ja sen jälkeen tältä riviltä ensimmäisen vapaan solun:

Sub VapaaSolu()
Dim ViimeinenRivi As Integer, VapaaSarake As Integer
Application.ScreenUpdating = False

ViimeinenRivi = Range("A65536").End(xlUp).Row
Cells(ViimeinenRivi, 1).Activate

While ActiveCell.Value Empty
ActiveCell.Offset(0, 1).Activate
VapaaSarake = ActiveCell.Column
Wend

Application.ScreenUpdating = True

End Sub

Sub Vika()
Range("A65536").End(xlUp).End(xlToRight).Select ' vika tietoa sisältävä rivillä
'Range("A65536").End(xlUp).End(xlToRight).Offset(0, 1).Select' eka tyhjä rivillä
End Sub