Public Sub DeleteDuplicatedLines()‘***************************************‘*** Code to Remove Duplicated Lines ***‘***** E-Mail: clico.tech@gmail.com  ******‘***************************************Dim r As LongDim C As RangeDim N As LongDim V As VariantDim Rng As Range On Error GoTo ErroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual If Selection.Rows.Count > 1 ThenSet Rng = SelectionElseSet Rng = ActiveSheet.UsedRange.RowsEnd If N = 0For r = Rng.Rows.Count To 1 […]