엑셀 vba 셀선택 union, 특정한 값 제외 모두 선택

Sub 셀선택_union() '방법1)     Application.Union(Columns("a"), Columns("c")).Select     Range("a1").Select      '방법2)     Union(Columns("a"), Columns("c")).Select         '어플리케이션 명력 삭제 가능          '방법3)         '(2,4,빈칸)을 제외한 나머지 선택     Dim c As Range, r As Range          For Each c In Range("a1:a15")         If c = 2 Or c = 4 Or c = Empty Then         Else             If r Is Nothing Then                 Set r = c             Else                 Set r = Union(r, c)             End If         End If              Next          r.Select          If r Is Nothing = 0 Then r.Select End Sub