Po form with updating po#

[billniven]

Hi,
Really new to VBA. After reading a bunch of posts I was able to write this code. The ActiveCell is ("B216") in sheet4. When it is empty I need Sheet1 "G5" to = Sheet4 " A216"
At the moment it returns the value to Sheet4 "G5. I trying to loop until column B, Sheet4 is full. I would sincerely appreciate getting pointed in the right direction. Thanks!

Sub Loop1()
Do
If IsEmpty(ActiveCell) Then

Range("G5").Value = Range("A216")
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
End Sub