Run Time error 7 - out of memory

Please help!
I keep getting this error and it is driving me mad.
Here is the code i am using

Public Sub CommandButton1_Click()
Dim wbRead As Workbook

Application.ScreenUpdating = False

Set wbRead = Workbooks.Open("G:\New Desktop items\Services & Pegasus Flightdeck back up\Hrs Target\" & Sheets(1).Range("A1").Value)
With wbRead.Sheets(1)
ThisWorkbook.Sheets(2).Range("a:ah").Value = .Range("A:ah").Value
End With
wbRead.Close True
Sheets("Sheet1").Range("B:D").ClearContents
Sheets("Sheet2").Range("A:D,F:L,N:R,T:AF").Delete Shift:=xlToLeft
Sheets("Sheet2").Range("1:8,10:11").Delete Shift:=xlUp
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("D1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Range("A2:D1217")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Sheet2").Activate
With Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("d"))
.AutoFilter 1, ">30"
.Offset(1).EntireRow.Delete
.AutoFilter
End With
With Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("c"))
.AutoFilter 1, "=0"
.Offset(1).EntireRow.Delete
.AutoFilter
End With
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet2!R1C1:R65536C4", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Sheet1!R2C2", TableName:="PivotTable1", DefaultVersion _
:=xlPivotTableVersion10
Sheets("Sheet1").Select
Cells(2, 2).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Material")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Gate")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Total WIP"), "Count of Total WIP", xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of Total WIP")
.Caption = "Sum of Total WIP"
.Function = xlSum
End With

Sheets(3).Select

ActiveWorkbook.save

End Sub


Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

replace

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

then to reverse it, put this right before the end sub

Please Login or Register  to view this content.

the above code will turn off auto calculation which takes a lot of resources, it also switches you into normal view mode

thanks but I still can not get it working. Have you any other suggestions? Perhaps I am doing it wrong?