Code:
--------------------
Sub Arrange()
For a = 1 To 1000
x = Application.Match(Sheets("OOR1").Cells(a, "a"), Sheets("OOR2").Columns("a"), 0)
If IsNumeric(x) Then Sheets("OOR1").Cells(a, "H") = Sheets("OOR2").Cells(x, "b")
Next a
Worksheets("OOR1").Select
Dim RngToCopy As Range
Dim DestCell As Range
Set RngToCopy = Worksheets("OOR1").Range("a2:m10000")
Set DestCell = Worksheets("Master").Range("a7")
With RngToCopy
DestCell.Resize(.Rows.Count, .Columns.Count).Value _
= .Value
End With
Worksheets("Master").Select
Columns("A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
End Sub
--------------------
--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile:
http://www.excelforum.com/member.php...o&userid=31648
View this thread:
http://www.excelforum.com/showthread...hreadid=521038