VBA excel copy code causing excel to crash

Could anyone explain firstly why this code is causing excel to crash ? is it simple because the computer is so old.

Sub CopyRow()
Dim sws As Worksheet, dws As Worksheet
Dim lr As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
Set sws = Sheets("Blueteq")
Set dws = Sheets("Sheet2")
lr = sws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With sws.Range("AB5:AB" & lr)
   .AutoFilter field:=1, Criteria1:="True"
   If .SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
      sws.Range("AB6:AB" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Copy dws.Range("A" & Rows.Count).End(3)(2)
      sws.Range("AB6:AB" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
   End If
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

also it is causing a slight graphical glitch in Excel so the lines not match up in one row any more as you can see in the screen shot.
Sam CoombesAsked:
Who is Participating?
Martin LissConnect With a Mentor Older than dirtCommented:
After we modified your code in this previous question did it ever work? If so what changes did you make after that? Also please attach your workbook so I can see if it works OK when I use it. Also please list the steps that wind up with it crashing.
Sam CoombesAuthor Commented:
Yep great thank you very much
Sam CoombesAuthor Commented:
Once again thank you very much
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.