Do Loop Until Black Cell

Question

I am almost there! But having trouble figuring out out to loop a portion of my code. See "loop portion" towards the bottom

Sub CopyPaste()
Dim sh1 As Wo