set a column length

I need to make column D in my database equal to the number of records in column B, which will change each time I update the data or change the search criterea. How exactly do I go about this? This is the what i have now but it brings me the files themselve from B and not the length which is what I want.


Range("D2").Select
Worksheets("thru 1-1-2005").Activate
Range("B2",Range("B2").End(x1down)).Select
Selection.Copy
Selection.offset(rowOffset:=0,columnOffset:=2).Activate
ActiveSheet.Paste

Stephen Peary