Private Sub CommandButton3_Click()
Dim LR As Long
LR = Worksheets("Employee").cell(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & LR).Value = EmpNameTextBox.Value
Range("B" & LR).Value = EmpIDtextBox.Value
Range("C" & LR).Value = SalaryTextBox.Value
End Sub