Trợ giúp di chuyển Button trong sheet

[GTK-PM]

Sub DONGVAO()
' DONGVAO Macro
    Rows("2:11").Select
    Selection.EntireRow.Hidden = True
    Columns("A:R").Select
    Selection.EntireColumn.Hidden = True
End Sub
Sub MORA()
' MORA Macro
    Rows("2:11").Select
    Selection.EntireRow.Hidden = False
    Columns("A:R").Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
End Sub

Em đang sử dụng đoạn code trên trong button ở ô S1.
Em muốn nhờ anh chị giúp đỡ hoàn thiện, khi em chạy Sub MORA() thì button di chuyển từ S1 về A1, ngược lại nếu chạy Sub DONGVAO() thì chạy từ A1 đến S1.