VBA Run time error when counting blank cells

[JST013]

Dim tbl As Range
    Set tbl = ws.Range("Table1")
    Dim archive As Worksheet
    Set archive = ThisWorkbook.Sheets("Sheet1")
    Dim rng As Range
    
    
     Set rng = tbl.SpecialCells(xlCellTypeBlanks)[INDENT]If rng.Cells.Count <> tbl.Cells.Count Then[/INDENT]
[INDENT=2]'do stuff[/INDENT]
[INDENT]End If

[/INDENT]

I'm not sure why, but I am getting a run time error for set rng = tbl.SpecialCells(xlCellTypeBlanks) if the range is blank...

Maybe there is a better way of doing this to begin with, but the end game goal is to have the code copy the table and paste it else where if its not blank. I just don't want it to copy and paste if its blank...

 

[JST013]

Nevermind...If its blank it doesn't effect me. Sorry

Maybe if anyone knows off hand what happened it would be nice to know, but don't sweat it.