I'd put in another for each .. next and move through a range.

Something like ...

Next Cel
Dim olXRange As Range
Dim Cel As Range

Set olXRange = Range("A1:B1")
For Each Cel In olXRange
x = cel.column
For y = 1 To 3500
For inc = 1 To 9
Cells(y + 1, x).Select
Selection.Delete Shift:=xlUp
Next inc
Next y

Next Cel

I've not tested this but it should be ok.

the code is working...but haven't got the right output..
the prob is i need to create a new column out of the given data  but still keep
the old data.
something like this:

Region(DATA) Region Summary(output)
Manila A Manila ABC
Manila B Sydney 12
Manila C
Sydney 1
Sydney 2

I need to actually have the Region Summary on a separate column but still keep
the Region column, for instance my data is in cells A1 to A6, then I'm going to
summarize the data to column...please help me on this...

I think there is a little confusion between questions here. The top part
doesn't reference the question I answered in the bottom.

"Is there some way to reference the column coordinate on a cell  I
click before calling the macro?"

instead of x = 3 have:
x = selection.column

BTW, if you were to put:

Range(Cells(y + 1, x), Cells(y + 9, x)).Delete Shift:=xlUp

instead of:
For inc = 1 To 9
Cells(y + 1, x).Select
Selection.Delete Shift:=xlUp
Next inc

it would work faster and give you the same result (it deletes 9 cells
at a time and doesn't spend time selecting cells).

But wait... you're doing this on several columns? Are the columns all
next to each other? If so then delete  all the relevant columns at the
same time. Replace entire macro code with:

Application.ScreenUpdating = False
x = Selection.Cells(1, 1).Column
z = Selection.Columns.Count + x - 1
For y = 1 To 3500
Range(Cells(y + 1, x), Cells(y + 9, z)).Delete Shift:=xlUp
Next y
Application.ScreenUpdating = True

To use, select the columns (or a range containing the columns) you
want to trim down and run it. The ScreenUpdating thing further cuts
down processing time.

I managed to add moving average functionality and
an ability to end the script  on an empty cell  instead of the
arbitrary 3500 loop count.

I couldn't figure out how to sum across a range though. How do you do
this?

I sure wished I installed the vba help files before I misplaced my
installation CD...

Application.ScreenUpdating = False

x = Selection.Cells.Column
y = Selection.Cells.Row

Do Until Len(Cells(y, x)) = 0

Cells(y, x).Value = (Cells(y, x).Value + Cells(y + 1, x).Value +
Cells(y + 2, x).Value + Cells(y + 3, x).Value) / 4

Range(Cells(y + 1, x), Cells(y + 3, x)).Delete shift:=xlUp

y = y + 1

Loop


Application.ScreenUpdating = True

perhaps?:

Cells(y, x).Value = Application.WorksheetFunction.Sum(Range(Cells(y,
x), Cells(y + 3, x))) / 4

x = selection.column is the answer I was looking for. Thanks for the
range hint too.

This is my first foray into VB. I spend most of my time making metal
things so I have a lot of reading to do to understand how your last
script works.

Am I to understand:

"Application.ScreenUpdating = False" disables cell  updating so Excel
doesn't go through the steps of reupdating the entire data  set?

No, the cells' values are updated (vba may have to refer to them later
in the code) it just does what it says on the tin; The screen doesn't
get updated until either the vba code has finished running or a
Screenupdating=true instruction is encountered. It simply saves the
time excel spends updating the screen after every vba instruction,
which for your original code was some 35,000 times.