Sub ki127()
  Sheets(Array("Sheet1", "Sheet2")).Select
    Sheets("Sheet1").Activate
    Range("A2").Select
    ActiveCell.Formula = "“¯Žž“ü—Í"
    Range("A1").Select
End Sub

Sub ki127a()
    Sheets(Array("Sheet2", "Sheet1")).Select
    Sheets("Sheet2").Activate
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
    Sheets("Title").Select
End Sub