On Fri, 28 Aug 2009 09:52:01 -0700, sam
wrote:

Sheets("Sheet2").Range("B29").Value = Sheets("Sheet1").Range("D8:D38").Value


Your source range is 31 cells but your destination range is just one
cell. Only one cell, D8, will be copied.
If you want all 31 cells to be copied you have to have a destination
range with that size.

For example like this:
Sheets("Sheet2").Range("B29:B59").Value =
Sheets("Sheet1").Range("D8:D38").Value


Hope this helps / Lars-Åke