Olá, estou tentando fazer uma macro pra um botão, que coloca uma linha em branco a cada 5 células com conteúdo igual, porém sou bastante leigo na sintaxe de VB e não tenho certeza se a lógica está correta também, exemplo do que deve acontecer:
ADA
ADA
ADA
ADA
ADA
ADA
Meu código atual é esse:
Private Sub Divide5_Click()
Dim Lst As Long
Dim n As Long
Dim i As Integer
Lst = Range("A" & Rows.Count).End(x1Up).Row
i = 0
For n = 2 To Lst Step 1
With Range("A" & n)
If .Value = .Offset(1).Value Then
i = i + 1
End If
If i = 5 Then
.EntireRow.Insert
End If
End With
Next n
End Sub