Try:
(not tested)


Sub m()
set ws1 = Worksheets("AdminCalls")
set ws2=WorkSheets("AllCalls")
set ws3=WorkSheets("Matches")

For each c in ws.Range("a:f")
For each k in ws2.Range("a:i")
if c.value = k.Offset(0,9).value and c.Offset(0,8).value
k.Offset(0,2).value And c.Offset(0,6).value = k.Offset(0,3).value Then
c.offset(0,1).copy k.Offset(0,13)
c.EntireRow.Copy ws3.Range("a" & Range("a65536").end(xlUp).Row)
end if
next
next

end su

--
david
-----------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...fo&userid=2064
View this thread: http://www.excelforum.com/showthread.php?threadid=53253