Recortar todas as linhas duplicadas e colar em outra aba

[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

 

 

[Kevin Murilo]

Segue.

Já tinha feito um código parecido com o que você quer, é só fazer algumas adaptações para a sua necessidade.

https://drive.google.com/file/d/1EQwP1OYaxN22v2LnPSr8ItHyMB9S0fhN/view?usp=drive_link