Attribute VB_Name = "testcellselect2"
Sub ƒeƒXƒg()

    Range("A1:B2").Select
    setValue

    Range("D3:E6").Select
    setValue

End Sub

Sub setValue()

    Selection.Value = "A"

End Sub