VBA Help with Value

[fari1]

Hi,
in my sheet1, in any of the cells of this sheet there's a word i-e Description and i want to copy the value below this cell, it can be next to the cell description, or two cells down, or three, meaning the first value after this word description.
E.g

Case1
Description
 
2312763
 
Case 2
Description
 
 
 
342867
 
Case3
Description
 
 
 
 
 
 
 
3428729

 

[fari1]

hi rick, i posted your code in the sheet and this code works perfect, i just want the next copy would be below the used range, plz add that part into code as well

Sub newcode()
Dim ValueBelowD As Variant, DCell As Range, CellBelowD As Range
  Set DCell = Worksheets("sheet1").Cells.Find("Document", , xlValues, xlWhole, , , False)
  Set CellBelowD = Worksheets("Sheet1").Cells.Find("*", DCell, xlValues, xlWhole, xlByColumns, xlNext)
  ValueBelowD = CellBelowD.Value
  With Sheets("data")
  .Range("A1").Value = CellBelowD
  End With
End Sub