Show Only Working Days From Dates

Dim LastRow As Long, i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row


For i = LastRow To 1 Step -1
    If Weekday(Cells(i, "A"), 2) > 5 Then
        ' delete cell up
        Cells(i, "A").Delete Shift:=xlUp
        ' or to delete entire row
        'Cells(i, "A").EntireRow.Delete
    End If
Next i

Option Base 0


Sub SetNoWeekEndOrHoliday()
  NoWeekEndOrHoliday Sheet1.Range("A2", Sheet1.Range("A2").End(xlDown)), _
    Sheet2.Range("A2", Sheet2.Range("A2").End(xlDown)), _
    "Sheet2"
End Sub


Sub NoWeekEndOrHoliday(checkRange As Range, holidaysRange As Range, holidaysSheetName As String)
  Dim r As Range
  Dim a() As Long, i As Long
  Dim sp As String


  i = 0
  For Each r In checkRange
    sp = "(" & holidaysSheetName & "!" & holidaysRange.Address & "=" & CStr(CLng(r.Value)) & ")*1"
    If (Format(r.Value, "dddd") <> "Saturday" And Format(r.Value, "dddd") <> "Sunday" _
      And Evaluate("SumProduct(" & sp & ")") = 0) Then
        i = i + 1
        ReDim Preserve a(i)
        a(i - 1) = r.Value
    End If
  Next r


  checkRange.ClearContents
  checkRange.ClearFormats
  checkRange.Resize(UBound(a), 1).NumberFormat = "dd/mm/yyyy"
  checkRange.Resize(UBound(a), 1).Value = WorksheetFunction.Transpose(a)
End Sub