Sub Test()
    Dim wks1 As Worksheet, wks2 As Worksheet
    
    Dim Lastcell As Range, CompareCell As Range
    
    Dim MyCheck As String
    Dim I As Integer, J As Integer
    
    Set wks1 = Worksheets("Sheet1"): Set wks2 = Worksheets("Sheet2")
    
    wks1.Activate
    Set Lastcell = Cells.Find("*", , , , , xlPrevious)
    If Not Lastcell Is Nothing Then
        For I = 1 To Lastcell
            MyCheck = Cells(I, 1).Value
            wks2.Activate
            Set CompareCell = Range(Cells(1, 1), Cells(Lastcell.Row, 1)).Find(MyCheck)
            If Not CompareCell Is Nothing Then
                For J = 1 To Lastcell.Column
                    If Not wks1.Cells(I, J).Value = wks2.Cells(CompareCell.Row, J).Value Then
                        MsgBox "Sheets not Identical"
                        Exit Sub
                    End If
                Next J
            Else
                 MsgBox "Sheets not Identical"
                Exit Sub
            End If
        Next I
    Else
        MsgBox "Sheets not Identical"
        Exit Sub
    End If
    
    MsgBox "Sheets Identical"
End Sub