Merging Cells Range

[Sharkie21]

Is it possible to find the 1st row and last row of a merge cell? I can't seem to find any function that does it =\

 

[Andrew Poulsom]

Like this?

Sub Test()
    With Range("A1").MergeArea
        MsgBox .Cells(1, 1).Row
        MsgBox .Cells(.Count, 1).Row
    End With
End Sub