数据透视表VBA，错误438“对象不支持此属性或方法”

我正在尝试使用VBA创build一个数据透视表，但是在下面一行中出现错误：

Sheets("Done").PivotCaches.Add _ (SourceType:=xlDatabase, _ SourceData:=Range("A1").CurrentRegion).CreatePivotTable _ TableDestination:="R4C" & Range("A1").CurrentRegion.Columns.Count + 3 

我收到一个错误，指出：

错误438对象不支持此属性或方法

任何人都可以请帮助我这个？