Simple VBA code stalling on END IF?

[30136353]

I have a fairly simple code to copy some cells down after a countif = 0, but some reason this just stalls and when i hit escape it throws an error to the end if?

    Sub NewSpineTable()
    
    Dim I As Long, LR As Long
    
    I = 2
    
    Do While Worksheets("Network Data").Cells(I, 14) <> ""
    
    
    LR = Worksheets("Spine Summary").Range("E" & Rows.Count).End(xlUp).Row
    
    If Application.WorksheetFunction.CountIf(Worksheets("Spine Summary").Range("D2:D" & LR), Worksheets("Network Data").Cells(I, 14) = 0) Then

    MsgBox "TRUE"

    LR = Worksheets("Spine Summary").Range("E" & Rows.Count).End(xlUp).Row + 1
    Worksheets("Spine Summary").Range("A2:T3").Copy Worksheets("Spine Summary").Range("A" & LR)
    Worksheets("Spine Summary").Range("A:" & LR & ":C" & LR + 1).ClearContents
    I = I + 1
    End If
    
    Loop

    End Sub

 

[30136353]

If Application.WorksheetFunction.CountIf(Worksheets("Spine Summary").Range("D:D"), Worksheets("Network Data").Cells(I, 14)) = 0 Then

Just noticed you have a bracket in the wrong place in the Countif line - it should be:

If Application.WorksheetFunction.CountIf(Worksheets("Spine Summary").Range("D:D"), Worksheets("Network Data").Cells(I, 14)) = 0 Then

ahhhhhhhhh thats it working! thanks alot, always the small stuff