Sub Move_Cell_v2()
Dim rFound As Range
'Clear any existing formatting settings for the Find process
Application.FindFormat.Clear
'Set the formatting that we want to look for (the orange cell)
Application.FindFormat.Interior.Color = RGB(255, 192, 0)
'Look in row 100 for the orange cell and set rFound to be that cell
Set rFound = Rows(100).Find(What:="", LookIn:=xlFormulas, SearchFormat:=True)
'This is just to stop the code erroring if there happens to be no orange cell in row 100
If Not rFound Is Nothing Then
'Starting at row 81 in the orange cell (rFound) column and for 17 cells from that one, transfer the values from column AC
Cells(81, rFound.Column).Resize(17).Value = Range("AC81:AC97").Value
'Cut the Orange cell and paste it 1 cell to the right (or to column E if we are at the end)
rFound.Cut Destination:=Cells(100, IIf(rFound.Column = 25, 5, rFound.Column + 1))
End If
'Clear the orange formatting seeting from Find so that it doesn't impede any other Find operations that you might do
Application.FindFormat.Clear
End Sub