Converting a text to a number macro...NEED HELP!!!

Hello I'm trying to figure out how to convert a text from a scan into a number with a macro. I know I can manually click on the Exclamation point and do this but I have over 30k files being examined. I import and I select a cell cut it and paste it to row 1 and continue this. It will then cut row 1 when it has completed that portion of the cycle and paste it into sheet 2. I've tried codes that do the entire column but it doesn't stop on the last empty row and because I have spaces in between my data that I'm trying to sort it sometimes stops too early. That is why I'm looking for it to examine row 1. I'm looking for a way to change column A Cell 1 or even the entire row if that makes it easier to a number from the text in the field. Please help. Here is my following code. So basically I just need a simple macro that will select Cell A1 and format the text to a number. Please help and Thank you!

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here