If CheckBox1.Value = True Then
If Sheets("BD").Cells(3, 1).Value <> "(All)" Then
Dim Line As Long
Sheets("Charttable").Select
Line = (Sheets("Charttable").Range("A1").End(xlDown).Row + 1)
[B]Sheets("Charttable").Cells(Line, 1).Value = Sheets("BD").Cells(3, 1).Value[/B]
Sheets("Charttable").Cells(Line, 2).Value = "(All)"
Sheets("Charttable").Cells(Line, 3).Value = "(All)"
Sheets("Charttable").Cells(Line, 4).Value = "(All)"
End If
End If