Sound like you have an endless loop
Would you please post your code as that will be the fastest way to a solution
Thanks
Code is as follows (so far):
Sub GetCache()
Sheets("PurchasesSales").Select
Range("A:K").Select
Selection.Copy
Sheets("Cache").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Cache").Select
Range("B2:B10000").Select
Do Until ActiveCell.Value = 0
If ActiveCell.Value = "Sale" Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ElseIf ActiveCell.Value = "Purchase" Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ElseIf ActiveCell.Value = "Distribution" Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ElseIf ActiveCell.Value = " " Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 1).Select
End If
Loop
End Sub