Creating Pivots in Excel VBA and Create an Email

[aaron.mendes]

I'm getting an error at tis Code sayin, SubsCript out of Range

Set pvc = .PivotCaches.Create(SourceType:=xlDatabase, SourceData:=.Worksheets("ccm_dispute_results").Cells(1).CurrentRegion.Address(, , xlR1C1, True), Version:=xlPivotTableVersion12)
    End With