VBA odoslanie

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

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


    Cells(row, 1).Value = txtMeno.Value       '1 -> row
   Cells(row, 2).Value = txtPriezvisko.Value
    Cells(row, 3).Value = txtEmail.Value