Custom change Macro's Range value, from cells input.

The code below works fine, I can copy selected area into new sheet. However, I wish to custom change the Range("A1:AO164") value, for example, at cells(1,1) I key in A1, then cells(1.2) I key in A56, then this changes will reflect to the value in this macro to Range("A1:A56").
I tried using this way :

Dim A as string
cells(1,1).text = a
cells(1,2).text = b
Range("a:b").Select

However, this silly act not working, please help me on this issue, I already run out of idea ~!

<script type="text/javascript">

Sub Macro1()
 
    Range("A1:AO164").Select
    Selection.Copy
    Sheets("july09").Select
    Sheets.Add
    ActiveSheet.Paste
End Sub

</script>