This should do it:

Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim p As PivotTable
    Set p = ws.PivotTables("CRTGDemand")
    p.SourceData = "AllData!A1:E" & lngAllMaxRow + 2
    p.RefreshTable