Bom dia.
Não entendi.
Sugiro postar uma planilha com uma demonstração manual do resultado pretendido.

Bom dia!!

Segue um exemplo.
Não testado!!

Sub AleVBA_25566()
Dim lr As Long
Dim rng As Range
Dim sh As Worksheet
Set sh = Plan1
lr = sh.Range("A" & Rows.Count).End(xlUp).Row
Set rng = sh.Range("A1:B" & lr)
   rng.Offset(1, rng.Columns.Count).Resize(lr - 1, 1) = "=IF(HOUR(A2)>=10,1,0)"
   rng.Offset(, rng.Columns.Count).Resize(lr - 1, 1).AutoFilter 1, 1
    For i = 2 To lr
        If Not Intersect(Range("B" & i), Range("B2:B" & lr).SpecialCells(xlCellTypeVisible)) Is Nothing Then
            Range("B" & i).Value = 300
        End If
    Next
   rng.AutoFilter
   rng.Offset(1, rng.Columns.Count).Resize(lr - 1, 1).ClearContents
End Sub

Att

Alexandre, não consegui, vou postar a planilha acho que fica melhor.... não tem um valor fixo para mudar pode ser qualquer valor...

Boa tarde!!

Tente isso.

Sub teste()
Application.ScreenUpdating = 0
    'Turno A
    For Each cCell In Range("C8:C15")
        cCell.Select
        If ActiveCell.Value > 0.41 Then
          ActiveCell.Offset(0, 2).Value = 300
        End If
    Next cCell
    'Turno B
    For Each cCell In Range("C20:C27")
        cCell.Select
        If ActiveCell.Value > 0.41 Then
          ActiveCell.Offset(0, 2).Value = 300
        End If
    Next cCell
    'Turno C
    For Each cCell In Range("C32:C39")
        cCell.Select
        If ActiveCell.Value > 0.41 Then
          ActiveCell.Offset(0, 2).Value = 300
        End If
    Next cCell
Application.ScreenUpdating = 1
End Sub

Att

Amigo é quase isso, mas o valor é independente pode ser, 300,250,350 não tem um valor fixo para alteração..

na celula K3 eu queria digitar o valor para alteração(pode ser qualquer valor)
e na celula K2 o horário

exemplo.....
K2 ===> 11:00
k3 ===> 306
os horário anterior as 11:00 permanece com a meta, exemplo, 328, e os horários apartir das 11:00 mudaria para 306.

Boa tarde!!

Desculpe eu não o que você pretende.

Caso você pretende alterar manualmente para qualquer valor porque simplesmente não digita nas células?

Ou então onde tem o valor em vermelho, ActiveCell.Offset(0, 2).Value = 300,troque para ActiveCell.Offset(0, 2).Value = xxx

Depois digite o valor que desejar.

Att