Sub Autofill()
' Notes
' you must place this macro in the Personal.xlsb

Dim anchor_cell As String
Dim bottom_cell As String
Dim myrange As String
'
' Autofill Macro
' ctrl + shift + Q

'

    anchor_cell = ActiveCell.Address
    ActiveCell.Offset(0, -1).Range("A1").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    bottom_cell = ActiveCell.Address
    myrange = anchor_cell & ":" & bottom_cell
    Range(anchor_cell).Select
    Selection.Autofill Destination:=Range(myrange)
   
End Sub