AutoFill Destination... yeahh.. new lesson for my macro.. thanks jacob.

"Jacob Skaria" wrote:

Hi Asraf

I dont think the OP is looking for a macro. However; to your response..you
dont need to select the cell. You can try out the below two solutions ()...

Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = _
Range("B1").Formula

OR use the Autofill method as below

Range("B1").AutoFill Destination:=Range("B1:B" & _
Cells(Rows.Count, "A").End(xlUp).Row)



--
Jacob (MVP - Excel)


"Asraf" wrote:

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