Sub Move_Stuff()

    Dim cl As Range

Application.ScreenUpdating = False

With ActiveSheet
    For Each cl In .Range("C2", .Range("C" & Rows.Count).End(xlUp))
        If cl.Value = "ANNUAL LEAVE REGULAR HOURS" Then
            cl.Offset(-2, 10).Resize(, 7).Value = cl.Resize(, 7).Value
            cl.Resize(, 7).ClearContents
        End If
    Next cl
End With

Application.ScreenUpdating = True

End Sub