Through VBA
Code:
Private Sub comparetest_Click()
Dim varSheetA As Variant
Dim varSheetB As Variant
Dim strRowType As String
Dim strUnit As String
Dim strRngChk As String
Dim bFilesIdentical As Boolean
Dim strVar As String
Dim iRow As Long
Dim iCol As Long
Dim xlApp As Excel.Application
Dim wkSheetA As Excel.Worksheet
Dim wkSheetB As Excel.Worksheet
Dim wkSheetC As Excel.Worksheet
Dim WkBkA As Excel.Workbook
Dim WkBkB As Excel.Workbook
Dim WkBkC As Excel.Workbook
Dim Inclr As Variant
Dim TxtClr As Variant
Dim BGC As Long
Dim TC As Long
Dim ColNum As Long
Dim ColNum2 As Long
Dim ClrCol As Long
Dim MinCnt As Double
Dim MaxCnt As Double
ColNum = 36 And 38
ColNum2 = 37 And 39
'strRowType = "Plat"
strUnit = "1-1 CAV SQDN"
strRngChk = "A1:AQ30000"
bFilesIdentical = True
Set xlApp = New Excel.Application
xlApp.Visible = False
Set WkBkA = Workbooks.Open("C:\Temp\BalanceSheet_New.xlsx")
Set WkBkB = Workbooks.Open("C:\Temp\BalanceSheet_old.xlsx")
Set WkBkC = Workbooks.Open("C:\Temp\Comparison.xlsx")
Set varSheetA = WkBkA.Worksheets(1).Range(strRngChk)
Set varSheetB = WkBkB.Worksheets(1).Range(strRngChk)
Set wkSheetC = WkBkC.Worksheets(1)
' WkBkA.Worksheets(1).Range(strRngChk).AutoFilter 8, strRowType
WkBkA.Worksheets(1).Range(strRngChk).AutoFilter 2, strUnit
'WkBkB.Worksheets(1).Range(strRngChk).AutoFilter 8, strRowType
WkBkA.Worksheets(1).Range(strRngChk).AutoFilter 2, strUnit
varSheetA = WkBkA.Worksheets(1).Range(strRngChk)
varSheetB = WkBkB.Worksheets(1).Range(strRngChk)
For iCol = 1 To 15
wkSheetC.Cells(1, iCol) = varSheetA(1, iCol)
wkSheetC.Cells(1, iCol).Interior.ColorIndex = 51
wkSheetC.Cells(1, iCol).Font.ColorIndex = 2
wkSheetC.Cells(1, iCol).Font.Bold = True
Next iCol
wkSheetC.Cells(1, 16) = "Changes Made"
wkSheetC.Cells(1, 16).Interior.ColorIndex = 51
wkSheetC.Cells(1, 16).Font.ColorIndex = 2
MinCnt = WkBkB.DMin(strRngChk, 2, strUnit) 'WorksheetFunction
MaxCnt = WkBkB.DMax(strRngChk, "Unit", strUnit)
For iRow = MinCnt To MaxCnt