I have written VBA code to find the duplicate value and bulk upload the data to another sheet.

If any duplicate in A, B, C Columns I need a message box, and to cancel the bulk upload.

Example of my columns - marked in red are duplicate values:

[![enter image description here](https://i.stack.imgur.com/DaI3W.png)](https://i.stack.imgur.com/DaI3W.png)

```vb
Option Explicit

Private Sub CommandButton1_Click()
    Dim rng As Range
    Dim l As Long, r As Long, msg As String
    Dim lRow, lRow1 As Long

    Application.ScreenUpdating = False

    l = Range("A" & Rows.Count).End(xlUp).Row

    For r = 2 To l
        If Evaluate("COUNTIFS(A:A,A" & r & ",B:B,B" & r & ",C:C,C" & r & ")") > 1 Then msg = msg & vbCr & r
    Next
    MsgBox msg, vbInformation, "DUPLICATE ROWS"

    Exit Sub

    lRow = [Sheet2].Cells(Rows.Count, 1).End(xlUp).Row
    lRow1 = [Sheet3].Cells(Rows.Count, 1).End(xlUp).Row + 1

    [Sheet2].Range("A4:N" & lRow).Copy
    [Sheet3].Range("A" & lRow1).PasteSpecial xlPasteValues

    Application.CutCopyMode = False

    Sheet3.Select
    [Sheet3].Range("A1").Select
    Sheet2.Select
    [Sheet2].Range("A1").Select

End Sub

```