delete the non blank rows depending on Column

[Harn88]

Hello

I need some help with this please. I would like to create a Marco that will
help me delete the non blank rows depending on Column C. For example, a Marco
will delete everything except Row 2 Column C and Row 4 Column C. Since Column
C for those 2 rows is blank it will not delete.

A B C
1 meeting Yes 20
2 meeting Yes
3 meeting Yes 10
4 meeting Yes
5 meeting Yes 100

So after the Macro, it should look something like this

A B C
1 meeting Yes
2 meeting Yes

Thank you very much

Harn

 

[Mike H]

Hi,

Right click your sheet tab, view code and paste this in and run it.

Sub stance()
Dim MyRange As Range
Dim DelRange As Range
Lastrow = Cells(Cells.Rows.Count, "C").End(xlUp).Row
Set MyRange = Range("C1:C" & Lastrow)
For Each C In MyRange
If Not IsEmpty(C) Then
If DelRange Is Nothing Then
Set DelRange = C.EntireRow
Else
Set DelRange = Union(DelRange, C.EntireRow)
End If
End If
Next
DelRange.delete
End Sub


Mike