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,