VBA comparing two files via rows and copy difference to third file

Hello everyone!
I'm new to VBA and need your help!
I need two compare two files (File 1 and File 2). I need to compare rows in File 2 to rows in File 1 one to all. If there are rows in File 2 that are different from File 1 or are not exist in File 1, they should be copied to the File 3. Cells that are different should be highlighted. I have working code that copy different cells to the File 3 and need to modify it to copy rows. Number of rows and columns can be variable. Approximate row number is 10000, columns is about 20. Please advice how it can be done.
The code is:

Private Sub CommandButton1_Click()
Dim varSheetA As Variant
Dim varSheetB As Variant
Dim strRangeToCheck As String
Dim iRow As Long
Dim jRow As Long
Dim iCol As Long

Dim wbkA As Excel.Workbook
Dim wshA As Excel.Worksheet

Dim wbkB As Excel.Workbook
Dim wshB As Excel.Worksheet

Dim wbkC As Excel.Workbook
Dim wshC As Excel.Worksheet


Set wbkA = Workbooks.Open(Filename:="xxxx\Makro\1.xlsm")
Set wbkB = Workbooks.Open(Filename:="xxxx\Makro\2.xlsm")

Set wbkC = Workbooks.Add
wbkC.SaveAs "xxxx\Makro\3.xlsx"
'xxxx - distanation'

For Each wshA In wbkA.Worksheets

Set wshB = wbkB.Worksheets(wshA.Name)

Set wshC = wbkC.Worksheets.Add

wshC.Name = wshA.Name
For i = 1 To wbkA.Sheets.Count


Set varSheetA = wbkA.Worksheets(wbkA.Sheets(i).Name)
Set varSheetB = wbkB.Worksheets(wbkB.Sheets(i).Name)
Sheets(i).Select

strRangeToCheck = "A1:DZ200"

Debug.Print Now
varSheetA = varSheetA.Range(strRangeToCheck)
varSheetB = varSheetB.Range(strRangeToCheck)
Debug.Print Now

For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)
For iCol = LBound(varSheetA, 2) To UBound(varSheetA, 2)
If varSheetA(iRow, iCol) = varSheetB(iRow, iCol) Then

Else
wshC.Cells(iRow, iCol) = varSheetA(iRow, iCol)
wshC.Cells(iRow, iCol).Interior.Color = RGB(255, 0, 0)
End If
Next
Next
Next i

Next wshA


End Sub