I have been using this code, but now I believe it is deleting the row instead of moving the text one cell down!
I need to find these numbers in the array (part) in the row D and move the text down one row. If it finds 63110 in D3, move it to D4. HELP!??
Worksheets("Sheet1").Activate Set Ws = ActiveSheet With Ws varArray = Array("63110", "63120", "63130", "63140", "63150", "63100", "63395", "66045") For lngEntry = 0 To UBound(varArray) Set rngFound = .Cells.Find(What:=varArray(lngEntry), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False) If Not rngFound Is Nothing Then strSave = rngFound lngRow = rngFound.Row .Cells(lngRow, "D").EntireRow.Delete .Cells(lngRow, "D") = strSave End If Next End WithEnd Sub
You may work with offset. If you have the current Rage Object of the found cell, you can use Rage.Offset(row,column) to refer to a cell, which is relative (rows, columns) to the current object...
Range("D3").Offset(1,0) is the field under D3 = D4