I am truly sorry to those who have been trying to help. The code is not
working.
I am trying to correct it now. If someone can just help me with a looping
code for this portion, explained below, I wiil surely appreciate their
assitance.

It is no longer necessary to hide any rows so long as the data in Cols R:AU
is Copied and PastedSpecial Values to 25 rows higher Cols R:AU.
ie. Copy R4993:AU4993 to R4968, similarly copy R4967:AU4967 to R4942:AU4942
upto the last record R27:AU27 copy to R2:AU2.
Thank you.

RobertR (to differenciate, there is another Robert)