Hello tran1728

you can try this.

Sub MacroCopy_paste()

Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select

Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste


End Sub

-Asraf


"tran1728" wrote:

Good morning, pls help me,

A B
9800 =A1*2
9800
9800
9800
9800

I want copy formula B1 and Paste B2 to ....., stop a t the last row of A.

Thanks