How to alter this macro so that it will start from the selected cell instead of from A3.

Thanks in advance.



Sub NewLine()
'
' NewLine Macro
'
' Keyboard Shortcut: Ctrl+o
'

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""Food_source[Product]"")"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(R[34]C[-2],Food_Source!C[-2]:C[3],2,FALSE)"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(R[34]C[-3],Food_Source!C[-3]:C[-1],3,FALSE)*R[34]C[-2]"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(R[34]C[-4],Food_Source!C[-4]:C[1],4,FALSE)*R[34]C[-3]"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(R[34]C[-5],Food_Source!C[-5]:C,5,FALSE)*R[34]C[-4]"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(R[34]C[-6],Food_Source!C[-6]:C[-1],6,FALSE)*R[34]C[-5]"
End Sub