Returning A Range

For example:

    Dim rng As Range
    If Len(Range("A4").Formula) = 0 Then
        Set rng = Range("A3")
    Else
        Set rng = Range("A3", Range("A3").End(xlDown))
    End If