Try this VBA routine I developed.

'
' One Criteria Match (Two Sheet)
' Macro recorded 28/09/98 by Bruce Ross Strachan
'
'
Sub OneCriteriaMatchMacro()

Start:
Sheets("1").Select
ActiveCell.Select
Let R1 = ActiveCell
Sheets("3").Select
ActiveCell.Select
Let R2 = ActiveCell
TEST1:
If R1 = R2 Then
GoTo CUT1
Else
If R1 R2 Then
GoTo Inc1
Else
GoTo Inc2
Inc1:
Sheets("3").Select
ActiveCell.Offset(1).Range("A1").Select
GoTo IFBLANK
Inc2:
Sheets("1").Select
ActiveCell.Offset(1).Range("A1").Select
GoTo IFBLANK
CUT1:
Sheets("3").Select
ActiveCell.Offset(0, -10).Range("a1:k1").Select
Selection.Cut
ActiveCell.Offset(0, 10).Range("A1").Select
Sheets("1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Range("A1").Select
GoTo IFBLANK
IFBLANK:
If R1 = ISBLANK Or R2 = ISBLANK Then
GoTo END1
Else
GoTo Start
End If
End If
END1:
End If
End Sub