Объединение нескольких ячеек диапазона в одну

[IgorGO]

см.вложение

[tibhar940]

Сообщение от IgorGO

Function JoinRange(rg As Range) As String
  If rg.Rows.Count > rg.Columns.Count Then JoinRange = Join(Application.Transpose(rg), ",") _
    Else JoinRange = Join(Application.Transpose(Application.Transpose(rg)), ",")
End Function

rg - диапазон-вектор (строка либо столбец с данными)

А подскажите, пожалуйста, можно ли сделать так, чтобы при выделении диапазона A:A объединялись только ячейки с заполнением?

Пока придумал так, но кривовато вроде бы)

Sub opr()
i = Columns("a").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("d1") = "=personal.xls!joinrange(A1:Axx)"
Range("d1").Replace "xx", i
End Sub