Call one function from another function in excel VBA

Just copy paste the codes you used inside the sub Copy_Pivot() macro ,to the end of the Sub InsertPivotTable() . It will work .!

Hello,

Thanks for the reply. I tried giving the code in the main sub. But it did not work. This is the code to copy pivot from 'PivotTable' sheet to 'Check' sheet.

Worksheets("Check").Activate
Range("B11:D9999").Select
    Selection.ClearContents
    Sheets("PivotTable").Select
    ActiveSheet.PivotTables("SalesPivotTable").PivotSelect "'Company Code'[All]", _
        xlLabelOnly, True
    Range("B11:D9999").Select
    Selection.Copy
    Sheets("Check").Select
    Range("B11").Select
    ActiveSheet.Paste
    Range("D12").Select