[RESOLVED] Can you help to complete this code

[nader]

In the first Ihope to be clear
This code only is to copy the values one time so if there are a another same value it will not copy them as it show in the pic1

Dim cell As Range 
Set myRange3 = Worksheets(2).Range("A1:A100") 
 
For Each cell In myRange3 
    If IsError(Application.Match(cell.Value, Sheets(3).Columns(1), 0)) Then 
        R = Sheets(3).UsedRange.Rows.Count 
        If R <> 1 Or Sheets(3).Range("A1").Value <> "" Then R = R + 1 
        cell.Copy Sheets(3).Range("a" & R) 
    End If 
Next cell

I want a new code to copy four values in same row one time, and if there is one difference value at least it will print the four vlaues again . As it show in the pic2, where in the rwo 5 Tom,25,Green,Italy it's difference than Tom,25,Green,England are difference in Italy so it will copy . In the 6 and 7 rows are the same values as it in the 1 and 2 rwos.

So I tried this code but it didn't success with me

 Dim cell As Range
Set myRange3 = Worksheets(2).Range("A1:D100")
 
For Each cell In myRange3
    If IsError(Application.Match(cell.Value, Sheets(3).Columns(1) And Sheets(3).Columns(2) And Sheets(3).Columns(3) And Sheets(3).Columns(4), 0)) Then
        R = Sheets(3).UsedRange.Rows.Count
        If R <> 1 Or Sheets(3).Range("A1").Value <> "" Then R = R + 1
        cell.Copy Sheets(3).Range("a" & R)
         cell.Copy Sheets(3).Range("b" & R)
          cell.Copy Sheets(3).Range("c" & R)
           cell.Copy Sheets(3).Range("d" & R)
    End If
Next cell

So how to do it?