Dim Employee As String
Dim EmployeeImport As String

Application.ScreenUpdating = False
Application.Worksheets("ACAPSCBS").Activate

Range("ACAPSCBSNoteList").EntireRow.Delete
Range("a1").EntireRow.Delete
Application.Range("ACAPSCBS!A1").Name = "NewPasteLocation2"

' For Each cell In Range("historical!a41:Historical!a41")
' Employee = Range("HISTORICAL!A4").Text
For Each Cell In Range("Employee!F2:Employee!F19")
If Cell.Offset(0, 1) = Range("historical!b4").Value Then

Employee = Cell.Value

Application.Worksheets("ACAPSCBS").Activate
Range("a65536").Select
Selection.End(xlUp).Activate
ActiveCell.Offset(1, 0).Activate
Application.ActiveCell.Name = "NewPasteLocation2"