Quote Originally Posted by SamT View Post
Assume that Column A is filled down to some Row, ie A1 to A10.
Assume that you want to select A3 before running the Code.
You then want to autofill B3 to B10 with the numbers 1 to 8.

In actuality, you want to select a cell in any column and have the column to the right, Autofilled down from next to the selected Cell to next to the bottom used cell of the selected Column.

Is that correct?

If YES, then the Range you want autofilled is 
Range(Selection.Offset(, 1), Selection.End(xlDown)).Offset(,1)
If YES, AND, you expect some cell in the selected column above the bottom used cell to be empty, (A1:A5 and A7:A10 have values, BUT, you still want B3:B10 to be Autofilled) THEN, the range to AutoFill is 
Range(Selection.Offset(, 1), Cells(Rows.Count, Selection.Column)End(xlUp)).Offset(,1)
Note:A Range Address is (Column&Row), But A Cells address is (Row, Column)

Note: A double ended range is Range(RangeObject1, RangeObject2)

I placed the code exactly this way... And it gives me an error "Autofill method of Range class failed".

Sub test2()
'Start with selected cell A1. A1 to A10 is filled with values. A11 onwards is empty.

Activecell.Offset(0,1).Select 
add1 = ActiveCell.address
ActiveCell.Value = 1
ActiveCell.Offset(1, 0).Select
add2 = ActiveCell.address
ActiveCell.Value = 2
Range(add1, add2).autofill Destination:=Range(Selection.Offset(, 1), Selection.End(xlDown)).Offset(, 1)

End Sub
Range(Selection.Offset(, 1), Selection.End(xlDown)).Offset(, 1) is still not working.
I tried replacing it immediately to Range (add1,add2) and it still didn't work.
I changed the line to hardcode, say Range ("B1","B10"), the script worked. I am puzzled...