Dim wsSheet As Worksheet
Set wsSheet = wb.Sheets("Sheet1")
wsSheet.Cells(wsSheet.Cells(wsSheet.Rows.Count, "B").End(xlUp).Row + 1, "B").Value = Staff_Name(0)
Sheet1.Cells(Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row + 1, "B").Value = Staff_Name(0)