Erro ao executar código no excel.

[AlysonR]

Boa noite... Eu fiz uma planilha pora agilizar o meu trabalho ela recebe um arquivo importado TXT e este arquivo serve para verificar todos os materials que estarão disponivels. Problema depois que feito todos os código para apagar as linhas ele começou a apresentar um problema e eu não tenho minima idea a causa desse problema -.-"

Código principal para apagar as linhas que eu estou usando:

Sub Deletando()

Dim LR As Long, k As Long

LR = Cells(Rows.Count, "A").End(xlUp).Row

For k = 1 To LR

If Cells(k, "A").Value = "___________" Then

Cells(k, "A").Select

Selection.EntireRow.Delete

End If

Next k

End Sub

Anexo: Arquivo

[Visitante]

Sub Deletando()
 Dim LR As Long, k As Long
 LR = Cells(Rows.Count, "A").End(xlUp).Row
  Application.ScreenUpdating = False
  For k = LR To 1 Step -1
   If Cells(k, "A").Value = "___________" Then
    Rows(k).Delete
   End If
  Next k
  Application.ScreenUpdating = True
End Sub

[AlysonR]

Deu certo o código... Ficou muito bom.

Muito obrigado Osvaldo.