Private Sub CommandButton1_Click()

    Dim 입력위치 As Range
    
    If Len(TextBox1.Value) > 0 Then
        
        If Len(TextBox2.Value) > 0 Then
    
            Set 입력위치 = Cells(Rows.Count, "B").End(xlUp).Offset(1)
        
            With 입력위치
                .Value = TextBox1.Value
                .Offset(, 1).Value = TextBox2.Value
            End With
        
        End If
        
    End If

End Sub
