Mayara Paz

Fiz uma macro para que quando um valor da coluna C estiver duplicado, recortar e colar a linha em outra aba. No entanto ele recortar apenas 1 das linhas duplicadas e eu preciso que recorte todas. Por exemplo, na Coluna C o valor X aparece 3x, eu quero que as três linhas com esse valor sejam recortadas e coladas na outra aba, não somente 1 linha, como está acontecendo. Abaixo segue meu código, desde já agradeço pela ajuda: Sub CopiarDados() Dim intTabela As Range Dim i As Integer, totalLin As Integer, nLin As Integer Dim n As Integer Set intTabela = Planilha2.Range("A1").CurrentRegion totalLin = intTabela.Rows.Count For i = 2 To totalLin n = WorksheetFunction.CountIf(intTabela.Columns(3), intTabela.Cells(i, 3)) If n > 1 Then nLin = Planilha6.Range("A1").CurrentRegion.Rows.Count + 1 intTabela.Rows(i).Cut Planilha6.Cells(nLin, 1) End If Next Application.CutCopyMode = False Sheets("Planilha6").Select End Sub