Hey below is a code I received before and I tweek it a bit but it slows my computer down when I run it and sometimes freeze the whole PC any advise on how I can Prevent this




Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
If UCase(Target.Value) = "CLOSED" Or _
UCase(Target.Value) = "RESOLVED" Then
Target.EntireRow.Copy Destination:=Sheets("CLOSED"). _
Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End If
End Sub