How to auto populate a drop down from a drop down list ?

[VBAEXCELNew]

I have a 2 different drop down list where 1 will be auto populate from another
my 1st drop down is in Column D while my 2nd drop down is on Column J

i would wan my first drop down list when choose a value it be auto populate in the 2nd drop down list

example

If i choose 3 G my column J will auto populate as Sale (Default)

how can i write this in Vba ?

 

[VBAEXCELNew]

i would wan my first drop down list when choose a value it be auto populate in the 2nd drop down list which is
Column D to auto populate on Column J
So if i select 3 G in Column D, my column J should auto populate it as Sale (Default) from the drop down

 

[VBAEXCELNew]

I not sure what to do after i check for column D how can i auto populate in Column J
Here my vba code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim valueD As Range
Set valueD = Range("D6:D999")
If Not Application.Intersect(valueD, Range(Target.Address)) Is Nothing Then
    If Target.Value = "3G" Or Target.Value = "4A" Or Target.Value = "4B" Or Target.Value = "4C" Or Target.Value = "4H" Or Target.Value = "4K" Or Target.Value = "4P" Then
    

    

End Sub

 

[VBAEXCELNew]

Still cant figure out ..