VBA Loop until blank cell

The below coding works and carries on looping but i need it to stop when it reaches a blank cell in B column in Sheet1.

Please Login or Register  to view this content.

I tried the below but not sure if on right track.

Please Login or Register  to view this content.

So, you're making us "figure out" what's going on here. You want to add formulas in column B all the way down the column to replace current values Except for the last used cell, probably a "total" cell of some kind. Yes?

So maybe:

Please Login or Register  to view this content.

I'm afraid your post does not comply with Rule 8 of our Forum RULES. Cross-posting is when you post the same question in other forums on the web. You'll find people are disinclined to respond to cross-posts because they may be wasting their time solving a problem that has been solved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser)to the cross-post. Expect cross-posts without a link to be closed a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

Originally Posted by Vikster

Sorry new to forums.
It currently copies text in Sheet 1 column B into Sheet 2 column A with text in front of orginal copied text.

It does? Your code is pasting a formula, so mine is showing another way to do the same thing, but with no loop.