How do relative reference?
In the first case it works, but when I try to do with relative reference does not work! What's wrong?

1)
Sub Teste()
Range("B2") = Range("A2").MergeArea.Address
End Sub
2)
Sub Teste()
Range("B2") = Range(ActiveCell.Offset(0, -1)).MergeArea.Address
End Sub
Moderator's Note: As per Forum Rule #3, please use code tags…Thanks.