Skus pred Cells pridat, ze sa ma jednat o druhy list = Sheets(2).Cells...atd.
Private Sub Ulozit_Click()
PosledniPlnyRadek = Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row ' najde posledni plny radek ve sloupci B
RadekZapisu = PosledniPlnyRadek + 1 ' urci prvni volny radek
Sheets(2).Cells(RadekZapisu, "B").Value = PokusnyFormular.txtTyp.Value
'zapise hodnotu z textboxu txtTyp do prvniho volneho radku sloupce B
Sheets(2).Cells(RadekZapisu, "C").Value = ComboBox1.Value
'zapise hodnotu z ComboBoxu1 do prvniho volneho radku sloupce C
Sheets(2).Cells(RadekZapisu, "A").Value = Format$(Now, "dd/mm/yyyy hh:nn:ss")
'zapise aktualni datum do sloupce A
PokusnyFormular.txtTyp.Value = vbNullString ' vymaze textbox
ComboBox1.Value = vbNullString ' vymaze ComboBox1
End Sub