Guru do Excel e Power BI

For NumLinha = 1 To TotalLinhas
        If varDados(NumLinha, ColGrupo) = "Item recorrente mensal" _
            And varDados(NumLinha, ColStatus) = "Pago" _
                And varDados(NumLinha, ColMes) = TabelaDestino.Range("MesReferencia_RelMensal").Value _
                    And varDados(NumLinha, ColAno) = TabelaDestino.Range("AnoReferencia_RelMensal").Value Then
            LinCriterio = LinCriterio + 1
        End If
    Next NumLinha

For NumLinha = 1 To TotalLinhas
        If varDados(NumLinha, ColGrupo) = "Item recorrente mensal" _
            And varDados(NumLinha, ColStatus) = "Pago" _
                And varDados(NumLinha, ColMes) = wshRelMensal.Range("MesReferencia_RelMensal").Value _
                    And varDados(NumLinha, ColAno) = wshRelMensal.Range("AnoReferencia_RelMensal").Value Then
            LinCriterio = LinCriterio + 1
        End If
    Next NumLinha

ReDim varItem(1 To LinCriterio, 1 To 1) As Variant
    ReDim datData(1 To LinCriterio, 1 To 1) As Date
    ReDim curValores(1 To LinCriterio, 1 To 7) As Currency

With TabelaDestino
        If .Range.Rows.Count = 2 Then
            .Range.Cells(2, 1).Resize(LinCriterio) = varItem
            .Range.Cells(2, 2).Resize(LinCriterio) = datData
            .Range.Cells(2, 3).Resize(LinCriterio, 7) = curValores
        Else
            With .ListRows.Add
                .Range(1, 1).Resize(LinCriterio) = varItem
                .Range(1, 2).Resize(LinCriterio) = datData
                .Range(1, 3).Resize(LinCriterio, 7) = curValores
            End With
        End If
    End With

With TabelaDestino
            With .ListRows.Add
                .Range(1, 1).Resize(LinCriterio) = varItem
                .Range(1, 2).Resize(LinCriterio) = datData
                .Range(1, 3).Resize(LinCriterio, 7) = curValores
            End With
    End With