Auto fill a cell with data from the cell above

[GSXR1000]

I thank you for the code but can not make it work. I am a novice for the
most part. I can change things somtimes to get results. I have already
some code in my sheets to advance to other cells. I don't know it this
will cause a problem. Here is what I have now, I have attached a zip
file of part the worksheet. What I am doing now is jumping from part
name cell to the material cell because the part number is an =if. Then
we jump from the per cell back to the part name cell to start another
line. What I would like to do is have values in the width(G) column and
length(H) column be copied to the cell below on enter if no value is
entered in the cell below. So if in row 01 width was 50 and in row 02
the width was going to be 50 I would like to be able to just enter and
the same with the length(H) column. But be able to enter a different
value also that would be the next value to be the copied value. The
cell above should always be the hot cell for lookup. I hope this is not
to long winded, I just trying to get acrossed what I am trying to do.
Thanks everybody for the help.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim endCol As Range, startCol As Range
Set endCol = Range("m:m")
Set startCol = Range("B:B")
If Not Application.Intersect(endCol, Range(Target.Address)) Is Nothing
Then Cells(ActiveCell.Row + 1, startCol.Column).Select
Dim endCell As Range, startCelll As Range
Set endCell = Range("b:b")
Set startCell = Range("d:d")
If Not Application.Intersect(endCell, Range(Target.Address)) Is Nothing
Then Cells(ActiveCell.Row, startCell.Column).Select
End Sub


+-------------------------------------------------------------------+
|Filename: Job2006.zip |
|Download: http://www.excelforum.com/attachment.php?postid=5207 |
+-------------------------------------------------------------------+