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