Visual Basic para Aplicaciones - Obtener primera celda de un rango

Estoy creando una función que pide el rango de entrada de datos como parametros,

La idea es que dentro de la función identifique la fila y la columna de la primera celda del rango, así como la última, existe alguna manera de identificarlo, o sea que el programa reconozca o separe la primera celda del rango y la ultima, y como recorrerla, la verdad estría muy agradecido por el aporte de alguién.

Gracias

Saludos

'//By JuanC - Dic. 2007
Function FirstCell(ByVal rng As Range) As String
Dim i&, sAdd$, sLetter$, sTmp$
On Error Resume Next
'//Si el rango contiene sólo una celda
If rng.Count = 1 Then
FirstCell = UCase(rng.Address(0, 0))
Exit Function
End If
'//Ref. del rango
sAdd = "," & UCase(rng.Address(0, 0))
'//Busca la letra de la 1er columna
'//dentro del rango
For i = 1 To Columns.Count
sLetter = GetColumnId(i)
If InStr(1, sAdd, sLetter) > 0 Then Exit For
Next
sTmp = "," & sLetter
'//Busca 1er fila del rango
For i = 1 To Rows.Count
If InStr(1, sAdd, sTmp & i & ",") > 0 Or _
InStr(1, sAdd, sTmp & i & ":") > 0 Then
FirstCell = sLetter & i
Exit For
End If
Next
Set rng = Nothing
End Function
Private Function GetColumnId(ByVal i As Integer) As String
Dim sAlpha$, sRes$, k%
If i > Cells.Columns.Count Then Exit Function
sAlpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
sRes = ""
If i > 26 Then
i = i - 1
k = Int(i / 26)
sRes = Mid(sAlpha, k, i)
i = i Mod 26 + 1
End If
GetColumnId = sRes & Mid(sAlpha, i, 1)
End Function

Saludos, desde Baires, JuanC

Gracias

Saludos