Maybe:

Sub Tester()
Set MyRng1 = Range("B5:C12") 'Sample range
Set MyRng2 = Range("G5:H12") 'Sample range
MyRng1.Value = MyRng2.Value
End Sub

Not sure without knowing more of your spreadsheet layout.



"Alan" wrote in message
oups.com:

Dear all,

In an Excel spreadsheet, I have 2 sets of data composed of alpha
strings stored in Range1 and Range2. Initially the data in Range2 is
identical to Range1 but over time items are deleted from Range2.

Periodically, I want to update Range1 to reflect the changes that have
occured in Range2, in other words if an data item in Range1 does not
exist in Range2 I want to delete it from Range1.

Each range contains1000 items. Using VBA what is the fastest,smartest
way to complete the task? - my initial shot at cranking the handle
takes for ever!!

Thanks ...