Find the column by name and copy those values (divided/12)

[GirishDhruva]

Hi everyone,
Below i have attached table , from which i need to search for a column through column name and when it finds that column it should perform some tasks like
1.It should divide by 12 from all the values which are found
2.Only that column should be copied and pasted in another new sheet with "Total at the bottom of that column"

Basic	HRA	PF	PT	ESI
123	35	423	23454	12343
1234	1343	234524	2345	12354
123543	13451	1432	51345	514
35134	54345	5431	54345	543
53445	51345	4532	145	1345
3145	32454	134543	5323	5231
543245	5423	542534	5413	62354
14323	6413	643	61423	34564
42345	12345	4614	36234	46354

<tbody>
</tbody>

Thank you in advance

 

[GirishDhruva]

Hi everyone,
Below i have attached table , from which i need to search for a column through column name and when it finds that column it should perform some tasks like
1.It should divide by 12 from all the values which are found
2.Only that column should be copied and pasted in another new sheet with "Total at the bottom of that column"

Basic	HRA	PF	PT	ESI
123	35	423	23454	12343
1234	1343	234524	2345	12354
123543	13451	1432	51345	514
35134	54345	5431	54345	543
53445	51345	4532	145	1345
3145	32454	134543	5323	5231
543245	5423	542534	5413	62354
14323	6413	643	61423	34564
42345	12345	4614	36234	46354

<tbody>
</tbody>

Thank you in advance

Now i just need to sum that column ,which is divided by 12

Sub sum()
Dim sh As Worksheet
Dim Fnd As Range
Dim Nxt As Long
Dim Hdr As String
    Set sh = Sheets("Sheet2")
    Set Fnd = sh.Rows(3).Find("Basic", , xlValues, xlWhole)
    If Not Fnd Is Nothing Then
        Nxt = Cells(4, Columns.Count).End(xlToLeft).Offset(, 1).Column
        Hdr = Range(Cells(3, 1), Cells(3, Nxt - 1)).Address(, , xlR1C1)
        Range(Cells(4, Nxt), Cells(Rows.Count, Nxt - 1).End(xlUp).Offset(, 1)).FormulaR1C1 = "=SUMPRODUCT((" & Hdr & "=""Basic"")/12,(rc1:rc[-1]))"
        
    Else
        MsgBox "Search Item Not Found!"
        Exit Sub
    End If
End Sub

Thank you in advance