Optimering af kode

Gennemløbet af mit regneark tager lang tid. Der er mellem 1500 og 2000 linjer. Jeg har derfor brug for optimering / alternative kode til at løse opgaven. Nogle gode forslag efterlyses.


Sub FlytTilFejllliste(ark)

Dim num_of_rows As Integer
Dim i As Integer
Dim col As String
Dim text As String

Application.ScreenUpdating = False

Sheets(ark).Select

rows = optælAntalRækker(1, "B", ark)

col = "E"

    For i = rows To 1 Step -1
           
        text = Range(col & i)
            If Not IsNumeric(text) Then
                Sheets("Produkter").Range("A" & i & " : H" & i).Copy
                Worksheets("fejlliste").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
                Sheets(ark).Range("A" & i & " : H" & i).Delete
            End If
    Next
       
Application.ScreenUpdating = True

End Sub