Do While Loop will not execute

[mars1886]

Disregard! I figured it out! Thanks!

I'm unsure as to why the loop won't execute. It goes to the first line of the Do While loop, then instantly goes to End Sub. Any thoughts?

Sub test()Dim i, c, d As Integer
Dim PN, Index As String


    i = 1
    c = 2
    d = 2
    PN = Cells(c, 6)
    Index = Cells(d, 16)
    
    Do While Cells(c, 6) <> ("") And Cells(d, 16) = ("")
        Sheets(CPB).Select
        
        If Cells(c, 6) <> ("") And Cells(d, 16) = ("") Then
            Range("A" & c & "P" & d).Select
            Selection.Copy
            Sheets(PB).Select
            ActiveSheet.Paste
            i = i + 1
            c = c + 1
            d = d + 1
            
        ElseIf Cells(c, 6) <> ("") And Cells(d, 16) <> ("") Then
            i = i + 1
            c = c + 1
            d = d + 1
                
        Else
            Exit Do
        End If
    Loop
    
End Sub