Private Sub Usporedi_Click()
Dim Celija As Range
Dim Rng As Range
Dim Tmp(1) As String
Dim RedS As String
Dim I As Integer
Dim Red As Integer


Red = ZadnjiRed("List1")
For I = 2 To Red
    Tmp(0) = ""
    Tmp(1) = ""
    RedS = "A" & I & ":D" & I
    Set Rng = Sheet1.Range("A2:d2")
    For Each Celija In Rng.Cells
        Tmp(0) = Tmp(0) & Celija.Value
    Next Celija
    Set Rng = Sheet2.Range(RedS)
    For Each Celija In Rng.Cells
    Tmp(1) = Tmp(1) & Celija.Value
    Next Celija
    If InStr(1, Tmp(0), Tmp(1)) = 0 Then
    MsgBox RedS & ":Nije isti"
    End If
    
Next I
End Sub

Function ZadnjiRed(ImeSita As String)
    Dim Zadnji As Long
    Dim ws As Worksheet
    
    Set ws = Sheets(ImeSita)
    With ws
        Zadnji = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    ZadnjiRed = Zadnji
End Function

Function ZadnjaKolona(ImeSita As String)
Dim Zadnji As Long
Dim ws As Worksheet
 Set ws = Sheets(ImeSita)
    With ws
        Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With
    ZadnjaKolona = Zadnji
End Function