Loop keeps running

Hi Guys,

My below code seems to keep looping/running, and I can't figure out why.

Range("H2").Select

Do Until ActiveCell.Offset(0, -7) = "" And _
ActiveCell.Offset(0, -6) = "" And _
ActiveCell.Offset(0, -5) = "" And _
ActiveCell.Offset(0, -4) = "" And _
ActiveCell.Offset(0, -3) = "" And _
ActiveCell.Offset(0, -2) = "" And _
ActiveCell.Offset(0, -1) = ""

If ActiveCell.Value <> "" And ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(0, -1).Value = ActiveCell.Value
ElseIf ActiveCell.Value <> "" And ActiveCell.Offset(0, -1).Value <> "" Then
ActiveCell.Offset(0, -1).Value = ActiveCell(0, -1).Value & " & " & ActiveCell.Value
Else
ActiveCell.Offset(1, 0).Select
End If


Loop

- James

Nevermind, figured it out