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

[Rajesh Kr Joshi]

Hi,

Is there a way to add Dropdown list in a range with last availabe column and row. Using some short of End(xlUP) and End(xlRight) function. I got a code but it only insert the dropdown in one cell.

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

 End Sub

dropdown list.xlsm


Thanks
Rajesh