例えば

Sub test()
MsgBox TypeName(Range("A1").Value)
MsgBox TypeName(Range("A1"))
End Sub

とやると
Empty
Range
となる