Trying to get this code to run FASTER

Hello I am trying to get this to run a little quicker. I have many working codes MUCH LONGER that run quicker. Does anyone have any ideas. Here is the attached sheet and code.

Sub Add_Breaks()

Dim ws As Worksheet
Dim Cell As Range
Application.ScreenUpdating = False

'For Each ws In ThisWorkbook.Sheets
'Find 6.5 hrs mark

    For Each Cell In ActiveSheet.Range("E:E,J:J")
        If Not IsEmpty(Cell.Offset(, -1).Value) And IsDate(Cell.Offset(, -1).Text) Then
            Cell.Value = Cell.Offset(, -2).Value + TimeSerial(6, 30, 0)
            Cell.NumberFormat = "hh:mm"
        End If
    Next Cell
    
    Columns("E:E").Select
    Selection.NumberFormat = "[$-409]h:mm AM/PM;@"
    Columns("J:J").Select
    Selection.NumberFormat = "[$-409]h:mm AM/PM;@"
    Cells.Select
    Selection.Replace What:="blank", Replacement:="Min Break", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    'Highlight Blue

With Range("E:E, J:J")
    .Font.Color = vbBlue
     .Font.Bold = True

End With
    
    'Colums Autofit
    
    Columns("E:E").EntireColumn.AutoFit
    Columns("J:J").EntireColumn.AutoFit
    
    'Fix page break
    
    ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$54"
    ActiveWindow.View = xlNormalView
    
    
    Range("A2").Select
    
    Application.ScreenUpdating = True

End Sub

I am so sorry. I was posting and for some reason it wasn't actually posting. Internet issue traveling right now in San Juan. This has helped me so much and it it VERY MUCH APPRECIATED!! People like you make this site the best one out there!

Have a great day!!