how could match multiple columns based on selected combobox and copy

[Abdo]

Hi
I search too much in the internet but I don't find what I look for. this is what I got it so far

Private Sub CommandButton1_Click()
Dim lRow As Integer
lRow = Application.Match(ComboBox1.Value, Sheets("Trial Tracker").Range("A:A"), 0)
Cells(lRow, 1).Value = TextBox1.Value
End Sub
End Sub

I have multiple columns A,B,C,D,E,F,G and combobox1. the combobox1 is connected with the headers (row1) for all of the columns . what I want matching combobox1 with the header for any column if it's matched when I fill textbox1 should copy to the bottom in specific column based on header match with combobox1 .the combobox , textbox are existed on userform .
any help guys,please?