View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
merjet merjet is offline
external usenet poster
 
Posts: 812
Default VLOOKUP and stopping at the last record

Befo Selection.Copy
Insert: iEnd = Range("B2").End(xlDown).Row

Replace: Range("D:D").Select
With: Range("D3:D" & iEnd).Select

Hth,
Merjet