Dim celsel As String
celsel = ''
For Each cellul In Range('C1:C' & Range('C56635').End(xlUp).Row)
If cellul.Value >= 0 Then
celsel = celsel & cellul.EntireRow.Address & ','
End If
Next
Range(Left(celsel, Len(celsel) - 1)).Select
ActiveWindow.RangeSelection.Delete