Compare Two Worksheets And Paste Results In Third One

I would like to make a macro that compares two worksheets, highlights the differences, and paste the whole row in a third worksheet if a difference is found.

I managed to highlight the difference between two sheets using the following code. But how to modify it to paste the differences in a third sheet...

Code:
Sub Compare()
CompareWorksheets Worksheets("Sheet1"), Worksheets("Sheet2")
End Sub

Code:
Sub CompareWorksheets(ws1 As Worksheet, ws2 As Worksheet)
Dim diffB As Boolean
Dim r As Long, c As Integer
Dim lr1 As Long, lr2 As Long, lc1 As Integer, lc2 As Integer
Dim maxR As Long, maxC As Integer, cf1 As String, cf2 As String

[Code] ......