Сделать выборку значений из массива типа Range

Private Function IgnorEmptyCell(a As Range) As Range
Dim j As Integer, aa As Range
    For i = 1 To a.Count
        If IsEmpty(a(i)) Then GoTo end1
        j = j + 1
        Set aa(j) = a(i)
end1:
    Next
    Set IgnorEmptyCell = aa
End Function

Next
    IgnorEmptyCell = aa
End Function

Private Sub Test()
    If Application.Count([Лист1!A1:A10]) > 0 Then
       MsgBox IgnorEmptyCell([Лист1!A1:A10]).Address '(False, False, , True)
    Else
       MsgBox "Все ячейки диапазона - пустые"
    End If
End Sub
 
Private Function IgnorEmptyCell(iSource As Range) As Range
    Dim iCell As Range
    For Each iCell In iSource
        If Not IsEmpty(iCell) Then
           If Not IgnorEmptyCell Is Nothing Then
              Set IgnorEmptyCell = Union(IgnorEmptyCell, iCell)
           Else
              Set IgnorEmptyCell = iCell
           End If
        End If
    Next
End Function