Please explain this macro for cutting rows

Highlight each word in the code and hit F1
The help menu will help you a lot. Note that the help menu has example illustrations also. For example: Highlight Const and click F1. The help menu will pop up

Hopefully this makes sense

Please Login or Register  to view this content.

This assigns the word to search for - const allows you to use it anywhere within code and it does not change

Please Login or Register  to view this content.

Setting the variable types ie: ranges numbers, string of text

Please Login or Register  to view this content.

this will use find in sheet1, coloumn A to find the word "purchasing"
if its found it will set R as the range found

Please Login or Register  to view this content.

then use an if statement to check if the word was found
This is working in reverse ie; if R is found then do this

Please Login or Register  to view this content.

Assigns the found range address to a variable

Please Login or Register  to view this content.

assigns the found range but starts 1 row above as the first cell then increases the range to 4 rows deep x the number of columns used in the used range surroundung that cell

Please Login or Register  to view this content.

Then loop through the rest of column to find anymore examples of the word "purchasing"

Please Login or Register  to view this content.

if no more examples found exit the loop

Please Login or Register  to view this content.

if the next found example is the same as the original ie; one found only then exit loop

Please Login or Register  to view this content.

otherwise assign the cell where the 2 ranges cross

Please Login or Register  to view this content.

Exit the loop

Please Login or Register  to view this content.

If the ctRng was found then

Please Login or Register  to view this content.

assign a variable

Please Login or Register  to view this content.

loop through each cell in the cutRng

Please Login or Register  to view this content.

cut the cell and paste it in the next sheet

Please Login or Register  to view this content.

find the next row ready for the next loop/cell

Please Login or Register  to view this content.

end loop

Please Login or Register  to view this content.