Удаление сводной таблицы макросом

[MASRUB]

Здравствуйте!
Часто бывает что нужно удалить или преобразовать сводную таблицу.
Есть Сводная таблица1, ее нужно удалить макросом. Или преобразовать в диапазон.Как это сделать?
Если так,
Range("A3:K10").Select
Selection.ClearContents
Selection.ListObject.ListColumns(1) .Delete
Selection.ListObject.ListColumns(1) .Delete
то удаляется таблица с заголовком.

Если так, то что то не хватает:
Dim WSD As Worksheet
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim Prange As Range
Dim FinalRow As Long
Dim FinalCol As Long
Set WSD = Worksheets("Pivot Table")

For Each PT In WSD.PivotTables
PT.TableRange2.Clear
Next PT
End Sub

[MASRUB]

Поправлю немного, не сводной таблицы, а умной. Код будет такой:

ActiveSheet.ListObjects("Таблица1") .Unlist
преобразовываем в диапазон