If statement to check if multiple entries exist

[BryceVBA]

I need to filter a column removing blank entries, then select the cell(s) left. I used the code below to select the cells with multiple entries left, the problem is that when I only have one entry, the macro ctrl+shifts down with no end cell. I'm not sure If I Need some kind of count variable or just an if statement, but any help is appreciated.

'Filter Column C
    Columns("C:C").Select
    Selection.AutoFilter
'Filter for Blanks
    ActiveSheet.Range("$C$1:$C$36").AutoFilter Field:=1, Criteria1:="<>"
'Highlight Cell(s) Orange and make text white
'Range subject to change
    Range("C8").Select '(first entry)
    Range(Selection, Selection.End(xlDown)).Select '<--- problem

[JBeaucaire]

First see what the last visible row is before you "select".

Dim LastRow as Long


    Columns("C:C").AutoFilter Field:=1, Criteria1:="<>"
    LastRow = Cells(Rows.Count, 3).End(xlUp).Row
    If LastRow > 8 Then 
        Range("C8:C" & LastRow).Select 
    Else
        'Do something else here because lastrow is less than row 8.
    End If

[BryceVBA]

Yep, that worked perfect. Thanks.