VBA code for dragging down contents of a cell

Question

I created a macro that copies (drags down) the contents of a cell and repeats the action numerous times. I nevertheless receive the warning "AutoFill Method or Range Class failed." What might be the cause?

Sub DragDown()

    Range("A10").Select
    Selection.AutoFill Range(Selection.Offset(0, 0), 
    Selection.Offset(2, 0))

    k = 0
    Do Until ActiveCell.Value = "00215F107"
        ActiveCell.Offset(k + 7, 0).AutoFill Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(2, 0))
        k = k + 7
    Loop

End Sub

Answer 1

Change this

ActiveCell.Offset(k + 7, 0).AutoFill Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(2, 0))
  

To this

Selection.AutoFill Range(Selection.Offset(0, 0), Selection.Offset(k + 7, 0))