Macro range cell

[Pieter]

I recorded the macro below.
Works fine only i have to stand on the cell in Column O.
I want that the macro always start in Column O no matter wich cell
i have selected in that row.

Sub Macro2()
'
' Selection.Copy
ActiveCell.Offset(0, -2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

[Bob Phillips]

Sub Macro2()

Cells(ActiveCell.Row, "O").Offset(0, -2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
nOperation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Pieter" <[email protected]> wrote in message
news:[email protected]...
> I recorded the macro below.
> Works fine only i have to stand on the cell in Column O.
> I want that the macro always start in Column O no matter wich cell
> i have selected in that row.
>
> Sub Macro2()
> '
> ' Selection.Copy
> ActiveCell.Offset(0, -2).Range("A1").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> ActiveCell.Offset(0, 1).Range("A1").Select
> Application.CutCopyMode = False
> ActiveCell.FormulaR1C1 = "0"
> ActiveCell.Offset(0, 1).Range("A1").Select
> End Sub
>
>