Marker dubletter

Jeg bruger nedenstående makro til markere dubletter i en kolonne. Problemet er, at jeg har en masse blanke celler, som også bliver markeret. Kan man ikke lave en ændring til makroen, så de blanke celler ikke markeres?

Public Sub MakerDubletterRøde()
col = ActiveCell.Column
RowCount = Cells(65536, col).End(xlUp).Row
Range(Cells(5, col), Cells(65536, col).End(xlUp)).Select
For I = 1 To RowCount
If Cells(I, col).Interior.ColorIndex <> 3 Or Cells(I, col) <> "" Then
For I1 = I + 1 To RowCount
If Cells(I, col) = Cells(I1, col) Then
Cells(I1, col).Interior.ColorIndex = 3
End If
Next
End If
Next
End Sub