Ukladanie Excel

    Dim row As Integer
    Range("A1").Select
    row = 1

    Do Until ActiveCell = ""
        ActiveCell.Offset(1, 0).Activate
        row = row + 1
    Loop

    'Hárok29.Unprotect
    Cells(row, 1).Value = txt_Meno.Value       '1 -> row
    Cells(row, 2).Value = txt_Priezvisko.Value
    Cells(row, 3).Value = txt_Email.Value
    'Hárok29.Protect