Sub CompareSub()
 
Dim ACell As Range
Dim BCell As Range
Dim CCell As Range
 
For Each ACell In Range("A2", Cells(Rows.Count, 1).End(xlUp))
    For Each BCell In Range("B2", Cells(Rows.Count, 2).End(xlUp))
     
     If BCell.Value = ACell.Value Then
     Cells(BCell.Row, 20).Value = BCell.Value
     BCell.Interior.Color = 5296260
     End If
    Next
Next

Dim LastRow As Long, Rw As Long
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
        Rw = Sheets("Ëèñò3").Cells(Rows.Count, 1).End(xlUp).Row + 1
        For i = 2 To LastRow
            If Sheets("&#203;&#232;&#241;&#242;1").Cells(i, 20) <> "" Then
                Range(Cells(i, 2), Cells(i, 19)).Copy Sheets("&#203;&#232;&#241;&#242;3").Cells(Rw, 1)
                Rw = Rw + 1
            End If
        Next