Bocs, ez nem volt egészen jó. Ez a helyes kód:

    Dim r As Range
    Set r = Worksheets("Munka1").Range("E" & Rows.Count).End(xlUp).Offset(1)
    If checkbox1.Value = True Then
        r = 1
    Else
        r.ClearContents
    End If

Csak nem volt kedvem form-mal bajlódni, ezért a teszteléshez cellaként deklaráltam a checkbox1-et. Ami a felhasználást illeti, a Dim kezdetű sort a szubrutin elejére kell tenni, a többivel pedig helyettesítsd azt a két sort, amit 16049-ben beküldtél.