quick check

[MERKY]

Is there something wrong with this line:

Range("D1:D" & x / 2).Select

 

[zacemmel]

Depends on the value of x

 

[Jay Petrulis]

To force an integer value, try

Range("D1:D" & Int(x / 2)).Select

This *might* give you one less than you want, so play around with MOD and the like.