Private Sub Add_Click()
Dim Emp As Long, a As Range, b As Range
'Make SheetActive
Sheet1.Activate
'Find Empty Row
Set a = Range("A:A")
a.End(xlDown).Select
Emp = WorksheetFunction.CountA(a)
'Enter Data
Cells(Emp, 7).Value = InsideSalesListBox.Value
Cells(Emp, 8).Value = DescriptionListBox.Value
Cells(Emp, 9).Value = AccountTypeListBox.Value
Cells(Emp, 10).Value = ActionsListBox.Value
Cells(Emp, 11).Value = InteractionTypeListBox.Value
Cells(Emp, 12).Value = NBOListBox.Value
Cells(Emp, 13).Value = RemarksTextBox.Value
Cells(Emp, 14).Value = CompNameTextBox.Value
Cells(Emp, 15).Value = ContactPersonTextBox.Value
Cells(Emp, 16).Value = ActivityTypeListBox.Value
Cells(Emp, 21).Value = Status.Value