VBA loop through empty columns
<p>I am stuck on how to complete a loop with a certain result.</p>

<p>I have attached a screen shot of what i basically want to happen. </p>

<p>The VBA would start off in B1 i want the VBA to loop through empty columns to the right until it gets to any character/string(the result can appear in any cell to the right of B1,and is a variable word.) Once it finds a cell with any characters in, i want to copy it and move it to B5. I have the following code, and it nearly does what i want apart from the fact it just keeps looping.</p>

<p>Code:</p>

<pre><code>Sub looptillnotempty()
    Dim notempty As Boolean
    notempty = False
    Do Until notempty
        If IsEmpty(ActiveCell) = True Then
            ActiveCell.Offset(0, 1).Select
        Else
            ActiveCell.Copy
            Range("C5").PasteSpecial Paste:=xlPasteFormulas
        End If
    Loop
    Range("C8").Select
End Sub
</code></pre>

<p><strong>What I am trying to accomplish:</strong>:</p>

<p><a href="https://i.stack.imgur.com/EyJRR.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/EyJRR.jpg" alt="enter image description here"></a></p>