copy cells to end of range in other column

[Guest]

I believe this question has been answered previously, but I can't easily
locate the answer.

I wish to copy cell value "Y2" to cells Y3 downward to the last row where a
value exists in column X.

Any suggestions?

 

[Ron de Bruin]

Try this one for "Sheet1"

Sub test()
With Worksheets("Sheet1")
Set SourceRange = .Range("Y2")
Set fillRange = .Range("Y2:Y" & .Cells(Rows.Count, "X").End(xlUp).Row)
End With
SourceRange.AutoFill Destination:=fillRange
End Sub

 

[Guest]

Sub copydown()

LastRowX = Cells(Rows.Count, "X").End(xlUp).Row
Set pasterange = Range(Cells(3, "Y"), Cells(LastRowX, "Y"))

Range("Y2").Copy Destination:=pasterange

End Sub

 

[Guest]

Than you both -- worked fine.

Sub copydown()

LastRowX = Cells(Rows.Count, "X").End(xlUp).Row
Set pasterange = Range(Cells(3, "Y"), Cells(LastRowX, "Y"))

Range("Y2").Copy Destination:=pasterange

End Sub