Compare Sheets and find missing Rows

If sheets DB2 and TD will always have the same amount of columns then maybe this will work for you?

Sub anandrajagopal()
Dim rcell As Range
Dim x As Long
Dim y As Long
Dim z As Long
Sheets("Compared").Rows(1).Value = Sheets("TD").Rows(1).Value
Sheets("Compared").Rows(1).Font.Bold = True
z = Sheets("TD").Range("A1").End(xlToRight).Column
x = Sheets("TD").Range("A" & Rows.Count).End(3).Row
y = Sheets("DB2").Range("A" & Rows.Count).End(3).Row
If y > x Then
With Sheets("TD")
    For Each rcell In .Range(.Cells(2, 1), .Cells(y, z))
        If rcell.Value <> Sheets("DB2").Cells(rcell.Row, rcell.Column) Then
            Sheets("Compared").Cells(rcell.Row, rcell.Column) = "FALSE"
            Sheets("Compared").Cells(rcell.Row, rcell.Column).Interior.ColorIndex = 3
        Else
            Sheets("Compared").Cells(rcell.Row, rcell.Column) = "TRUE"
        End If
    Next rcell
End With
End If
If x > y Then
With Sheets("DB2")
    For Each rcell In .Range(.Cells(2, 1), .Cells(x, z))
        If rcell.Value <> Sheets("TB").Cells(rcell.Row, rcell.Column) Then
            Sheets("Compared").Cells(rcell.Row, rcell.Column) = "FALSE"
            Sheets("Compared").Cells(rcell.Row, rcell.Column).Interior.ColorIndex = 3
        Else
            Sheets("Compared").Cells(rcell.Row, rcell.Column) = "TRUE"
        End If
    Next rcell
End With
End If
End Sub