ピポットテーブルウィーザードからテーブル作成時にマクロの自動記録を実行し以下が記録されました。これをデータ範囲がかわっても（列と行が増減しても）使える様にするにはどのように書きなおせばいいかご教示いただければ幸いです。

Sub ピポットテーブル作成()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"main!R1C1:R6C7").CreatePivotTable TableDestination:="", TableName:= _
"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ6", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ6").PivotFields("仕入先")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ6").PivotFields("支払月")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ6").AddDataField ActiveSheet.PivotTables( _
"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ6").PivotFields("支払い額"), "合計 / 支払い額", xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub