Dropdown list in a range with last availabe column and row using vba

[rollis13]

Just change your script to something like this, should do:

    With Range("C4:L8").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$P$18:$P$20"
        .IgnoreBlank = True
        .InCellDropdown = True
    End With