Macro to create Pivot Table

---

Macro to create Pivot Table from a data set

---

Sub CreatePivotTable()
Dim SourceRange As Range
Set SourceRange = ActiveCell.CurrentRegion
ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=SourceRange, _
Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="", _
TableName:="", DefaultVersion:=xlPivotTableVersion15
End Sub

---

Macro to refresh all Pivot Tables in a workbook

Sub RefreshPivotTable()
Dim PT As PivotTable
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
PT.RefreshTable
Next PT
Next WS
End Sub

How to use codes shared here?