Sub Delete_Blank_C_Rows_From_Selection()
    Dim rng As Range
Set rng = Intersect(Columns(3), Selection)
If Not rng Is Nothing Then
    On Error Resume Next    'in case nothing to delete
    rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0     're-enable error notification
End If
End Sub