How to increase efficiency when running a loop?

[GIS2013]

Hello everyone. I run a rather simple loop (see below). But as it runs through A1 to A28000 it takes a lot of time. Is there a more efficient loop to operate this simple task?

Set db = .Range("A1:A" & .UsedRange.Rows.count)

    
        For Each Route In db
                           
        If Route.Offset(0, 4).Value = 0 Then Route.Offset(0, 4).Value = "Sunday"
        If Route.Offset(0, 4).Value = 5 Then Route.Offset(0, 4).Value = "Friday"
        
        Next Route