Boa tarde, pessoal.

Estou desenvolvendo uma planilha com a estrutura de repetição Fox Next que executa um procedimento de acordo com alguns critérios.

Pois bem, o critério de procura da estrutura puxa a quantidade de linhas que estão preenchidas na planilha, no entanto, quando passa de 50 mil linhas preenchidas, ocorre um "estouro" na macro, ainda que eu declare para variável Long.

Alguém sabe como contornar este problema? Segue o código:

Sub executa()

Dim w As Worksheet
Dim ws As Worksheet
Dim x As Integer
Dim CountLinha As Variant
Dim percentual As Single
Dim contador As Integer

Set w = Sheets("Matriz")
Set ws = Sheets("Banco_Dados")

w.Range("a1:j1").Copy
ws.Select
ws.Range("a1").Select
ActiveSheet.Paste

w.Select
w.Range("a2").Select
r = ActiveCell.Rows
CountLinha = w.Range(Selection, Selection.End(xlDown)).Count
Application.ScreenUpdating = False
For x = 1 To CountLinha
If ActiveCell.Offset(0, 4).Value <> 0 Or ActiveCell.Offset(0, 6).Value <> 0 Or _
ActiveCell.Offset(0, 9).Value <> 0 Then

w.Range(Selection, Selection.End(xlToRight)).Copy
ws.Select
ws.Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
w.Select
w.Cells(x + 1, 1).Select

End If
ActiveCell.Offset(1, 0).Select
r = r + 1
contador = contador + 1
percentual = contador / CountLinha

AtualizaBarra percentual
Next

Obrigado!