Soru userform Checkbox veri aktarımı

[MusaPEKEL]

Merhaba, Userform eklediğim Checkbox kısmına bastığım zaman "e" hücresine veriyi yazdırmaktadır.
Verileri başka sayfadan çekmektedir.

Başka bir hücreye eklemek istediğim zaman şu sorunlar karşılaşıyorum alt alta ekleme yapmıyor. (not : Teker Teker Ekleme yapıyor.)
Kullandığım kod :

Private Sub CheckBox41_Click() 'Sıralama Aralardaki Boşluk
For x = 1 To 1
son = Sheets("LİSTE").Cells(Rows.Count, "B").End(3).Row + 1
If CheckBox41 = True Then
Sheets("LİSTE").Cells(son, "B") = Sheets("veri").Cells(x, 40)
End If
Next
End Sub

örnek resim aşağıdaki gibidir.
Yardımlarızı rica ederim.