ACERTAR PLANILHA - nao soma algumas linhas

[ferrubim]

tenho a planilha anexada no excel 2007...somo todas as contas e gero uma outra aba com os valores,porém so é somado ate a linha 7590,para baixo nao soma nada...alguem poderia me dizer porque ???? ja olhei a macro mas nao consigo descobrir nada...

[Patropi]

Boa noite ferrubim

Seja bem vindo ao fórum!

Temos colegas feras em macros, mas se você não postar a tua macro aqui vai ficar difícil, pois não temos como adivinhar qual é o problema.

Um abraço e feliz 2013!

[ferrubim]

segue macro:

Sub DINAMICA()

'

' DINAMICA Macro

' Macro gravada em 11/05/2010 por NOVO

'

'

Application.Goto Reference:="DADOS"

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="DADOS") _

.CreatePivotTable TableDestination:="", TableName:="Tabela dinâmica2", _

DefaultVersion:=xlPivotTableVersion10

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)

ActiveSheet.Cells(3, 1).Select

ActiveSheet.PivotTables("Tabela dinâmica2").NullString = "---"

ActiveSheet.PivotTables("Tabela dinâmica2").AddFields RowFields:=Array( _

"CONTA", "SUBCONTA"), ColumnFields:=Array("UF", "FILIAL"), PageFields:="DATA"

With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("VALOR POS_NEG")

.Orientation = xlDataField

.Caption = "Despesas"

.Function = xlSum

.NumberFormat = "#,###,###,##0.00"

End With

ActiveWorkbook.ShowPivotTableFieldList = True

ActiveWorkbook.ShowPivotTableFieldList = False

ActiveSheet.PivotTables("Tabela dinâmica2").PivotSelect "", xlDataAndLabel, _

True

ActiveSheet.PivotTables("Tabela dinâmica2").Format xlTable8

Application.CommandBars("PivotTable").Visible = False

Cells.Select

With Selection.Font

.Name = "Arial"

.Size = 8

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

End With

Cells.EntireColumn.AutoFit

Columns("Q:R").Hidden = True

Range("A1").Select

End Sub