Good day all once again,

I have a Userform with a series of checkboxes, when a box is checked it then populates "Page4+" with the requested range, however when unchecked this information needs to be removed from "Page4+",
I have a code below that used to work but for some reason no longer removes the data when unchecked...any help as always would be greatly appreciated, thank you all & have a great day - Marco


Private Sub CheckBox5_Click()
Dim NR As Long
Dim rngFND As Range

With Sheets("Page4+")
    If CheckBox5 = True Then
        NR = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
        Sheets("Test").Range("Crane").Copy .Range("A" & NR)
    Else
        On Error Resume Next
        Set rngFND = .Cells.Find("UNLOAD WITH CRANE", LookIn:=xlValues, LookAt:=xlWhole)
        If Not rngFND Is Nothing Then
            rngFND.Resize(13).EntireRow.Delete xlShiftUp
        Else
            MsgBox "Source Not Found?"
        End If
    End If
End With

End Sub