If hiba = False Then
Do
    If IsEmpty(Cells(sorszam, 1)) = False Then
    Else
    Cells(sorszam, 1) = txt_nev.Value
    Cells(sorszam, 2) = txt_email.Value
    Cells(sorszam, 3) = combox_szolgaltato.Value
    Cells(sorszam, 4) = txt_tel.Value
    If opt_gkar = True Then
    Cells(sorszam, 5) = "G"
    Else
        If opt_kkar = True Then
        Cells(sorszam, 5) = "K"
        Else
        Cells(sorszam, 5) = "T"
        End If
    End If
    Cells(sorszam, 6) = eletkor
    Cells(sorszam, 7) = txt_matek.Value
    Cells(sorszam, 8) = txt_info.Value
    Cells(sorszam, 9) = Left(listbox_velemeny, 1)
    End If
    sorszam = sorszam + 1
    Cells(1, 12) = sorszam
Loop Until IsEmpty(Cells(sorszam, 1)) = True
Cells(sorszam, 1) = rofllolz