If cell is numeric only move to opposite cell

Question

I found a code which does exactly what I need but I\'m unable to make it loop through sheet2 and sheet3?

Does anyone have a suggestion?

 Sub MoveMyNumb