Veja se está bom:

Sub somar_GT()

Application.ScreenUpdating = False

Dim Filial  As String
Dim PL      As Long 'Primeira Linha
Dim UL      As Long 'Última Linha
Dim linha   As Long

Filial = Range("C1").Value2
PL = 7
UL = Cells(Rows.Count, "B").End(xlUp).Row

For linha = PL To UL
    If Cells(linha, "A").Value2 = Filial Then
        Cells(linha, "B").Value2 = Cells(linha, "B").Value2 + 1
    End If
Next linha

Application.ScreenUpdating = True

End Sub

Abs

Funcionou sim! Obrigado!

Mas me diga uma coisa, porque que você usou .value2 ao invés de somente .value? eu alterei para ver se daria algum erro e nada mudou.

Boa tarde!!

Leia:
http://support.microsoft.com/kb/213719/pt-br

Att

Além do link que o Alexandre postou, entende-se que o value2 seja mais rápido do que o value.

A entendi! Vou passar a utilizar.

Tks