Adding drop down list macro

[b_rianv]

Good evening everyone,

I am having trouble adding more drop down list too my macro. I already have column (B) done, still need to do columns (C,D,E,F,G). I Also have my macro adding a new row at (A2) when I click my Active X button found in cells (K1,L1). So when I click my Active X button a New Row is added as well as a drop down list in cell (B2),I know you can't see my Active X button well but I can't get the text too show because it is a small button and want it that way,have tried everything in the properties area.

Can someone help me add these other drop down list commands to my macro for columns (C2,D2,E2,F2,G2)?

The code I am working with

Private Sub CommandButton1_Click() 
     
    Sheets("Search").Range("A2").Select 
    ActiveCell.EntireRow.Insert Shift:=xlDown 
     
    Sheets("Search").Range("A2:G2").Select 
    Selection.Borders.Weight = xlThin 
     
    Sheets("Search").Range("B2").Select 
    With Selection.Validation 
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ 
        Formula1:="=data_2!$A$2:$A$19" 
        .IgnoreBlank = True 
        .InCellDropdown = True 
    End With 
End Sub

Here is my workbook

Thank you for your time,

[LeoTaxi]

This will do

Private Sub CommandButton1_Click()
Sheets("Search").Range("A2").EntireRow.Insert Shift:=xlDown
With Sheets("Search").Range("A2:G2").Borders
    .Weight = xlThin
End With
With Sheets("Search").Range("B2").Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
    Formula1:="=data_2!$A$2:$A$19"
End With
With Sheets("Search").Range("C2").Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
    Formula1:="=data_2!$B$2:$B$154"
End With
With Sheets("Search").Range("D2").Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
    Formula1:="=data_2!$C$2:$C$51"
End With
With Sheets("Search").Range("E2").Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
    Formula1:="=data_2!$D$2:$D$17"
End With
End Sub

Kind regards
Leo

[b_rianv]

You are the MAN ,Thank you Leo!!
Have a GREAT DAY!!!