Проблема с Checkbox , Нужна помощь

[powerking11]

Особо не шарю в программировании, но хочу разобраться в макросе.
Есть 4 штуки Checkbox.
Сейчас в ячейку вводится только один Checkbox.
Как сделать, что бы при нажатии на Checkbox1, Checkbox2 и Checkbox3 значения вводились соответственно А,Б
И как сделать что бы буква "B" то есть Checkbox3 вводился с новой строки и "Г" Checkbox4.
При выборе всех Checkbox должно получится как на фото:
А,Б
В
Г

Private SUB CommandButton1_Click()
DIM LastRow AS LONG
LastRow = Cells(Rows.Count, 1).END(xlUp).Row
With Sheets("Лист1")
a = .Cells(2, 1)
    .Cells(LastRow + 1, 1) = a + 1
 
   IF CheckBox1.Value = True THEN
   .Cells(LastRow + 1, 2) = "А"
   END IF
    IF CheckBox2.Value = True THEN
   .Cells(LastRow + 1, 2) = "Б"
   END IF
 IF CheckBox3.Value = True THEN
   .Cells(LastRow + 1, 2) = "В"
   END IF
   IF CheckBox4.Value = True THEN
   .Cells(LastRow + 1, 2) = "Г"
   END IF
 
END With
END SUB

[Aleksandr H.]

Private Sub CommandButton1_Click()
    Dim LastRow As Long
    
    With Sheets("Лист1")
        Dim newValue
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        a = .Cells(2, 1)
        .Cells(LastRow + 1, 1) = a + 1
        
        If CheckBox1.Value = True Then
            .Cells(LastRow, 2) = "А"
        End If
        If CheckBox2.Value = True Then
            
            If .Cells(LastRow, 2) <> "" Then
                newValue = ", Б"
            Else
                newValue = "Б"
                
            End If
            .Cells(LastRow, 2) = .Cells(LastRow, 2) & newValue
        End If
        If CheckBox3.Value = True Then
            .Cells(LastRow, 2) = .Cells(LastRow, 2) & vbNewLine & "В"
        End If
        If CheckBox4.Value = True Then
            .Cells(LastRow, 2) = .Cells(LastRow, 2) & vbNewLine & "Г"
        End If
        
    End With
End Sub

[powerking11]

Aleksandr H., Спасибо большое!!!
Еще вопрос. Есть 3 textbox , нужно что бы при их заполнении каждый заполнял одну и ту же ячейку с новой строки.
Как это показано на фото.

Данный код заполняет только 3-тий textbox

Private Sub CommandButton1_Click()
    Dim LastRow As Long
    
    With Sheets("Ëèñò1")
        Dim newValue
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        a = .Cells(2, 1)
        .Cells(LastRow + 1, 1) = a + 1
        
        .Cells(LastRow + 1, 2) = TextBox1.Value
        .Cells(LastRow + 1, 2) = TextBox2.Value
        .Cells(LastRow + 1, 2) = TextBox3.Value
        
    End With
End Sub

[IgorGO]

используйте такую строку:

 .Cells(LastRow + 1, 2) = TextBox1.Value & vblf & TextBox2.Value & vblf & TextBox3.Value

о, КорольСилы!

[powerking11]

IgorGO,Спасибо!!! работает!
А есть какой-то код, что бы ячейка раздвигалась если текст в неё не влазит?

[powerking11]

спасибо