Okay, here is a routine. I am a little confused as to which sheet is the 'Master' and which is the 'raw data' though..
Option Explicit
Sub CheckValuesAndMoveEm()
Dim rngCel As Range, rngChk As Range, tmpCel As Range, _
tmpRng As Range, myRow As Long, myCol As Long, cel As Range
Set rngChk = Sheets("Sheet1").Range("A1", Sheets("Sheet1"). _
Range("A65536").End(xlUp))
For Each rngCel In rngChk
With Sheets("Sheet2")
Set tmpCel = .Range("A:A").Find(rngCel.Value)
If Not tmpCel Is Nothing Then
Set tmpRng = Range(tmpCel, .Cells(tmpCel.Row, 256). _
End(xlToLeft))
For Each cel In tmpRng
If cel.Value <> Sheets("Sheet1").Cells(cel.Row, _
cel.Column).Value Then
rngCel.EntireRow.Copy Sheets("Sheet3"). _
Range("A65536").End(xlUp).Offset(1)
GoTo nextCellPlease
End If
Next cel
Else
'** NOT FOUND **
End If
End With
nextCellPlease:
Next rngCel
End Sub
This will search sheet2 for differences in sheet1, and put them all in sheet3. Is that what you wanted or do I have it backwards?