Public Sub Demo()
    For Each r In Application.ActiveSheet.UsedRange
        Debug.Print "R:" & r.Row & " C:" & r.Column & " Top: " & r.Top & " Left:" & r.Left
    Next r
End Sub