'Pivot table and auto filll

I am trying to develop pivot table and auto fill. However there is some error (runtime error1004) Could anyone help? Below is coding

Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Sheet1!R1C1:R995C30", Version:=7).CreatePivotTable TableDestination:= _
    "Sheet2!R3C1", TableName:="피벗 테이블1", DefaultVersion:=7


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source