VBA Code Paste after used range

[fari1]

Hi,
my below code, finds a text, copies it and paste it into another sheet, want to add a functionality into it, that the paste should be ater the used cell in the range.

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

 

[AlphaFrog]

Sub newcode()
    Dim 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)
    [COLOR="Blue"]Sheets("data").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = CellBelowD.Value[/COLOR]
End Sub

 

[fari1]

yes, its perfect, hey, will u resolve my one more problem as well, i'm struggling real hard with VBA being novice to it, plz reply to my below thread, its really urgent

http://www.mrexcel.com/forum/showthread.php?t=568198