"SUM" by headings

[Panoos64]

Hi all, kindly advise me so that to create a VBA code which should “SUM” the headings and rows down in columns “SALARY” & “ACTUAL SALARY”. Therefore, that the above headings have no stably column, but the row “2” is constantly. Below I present the original data and the expected result. Thanking you in advance

Original data

	P	Q	R	S	T
1	COMPANY
2	EMPL. NAME	EMPL. CODE	SALARY	ACTUAL SALARY	DIFFERENCE
3	EMPLOYEE NAME1	450010	1,570.00	1,480.00
4	EMPLOYEE NAME2	450146	1,850.00	1,588.00

<tbody>
</tbody>

Expected result

	P	Q	R	S	T
1	COMPANY
2	EMPL. NAME	EMPL. CODE	SALARY	ACTUAL SALARY	DIFFERENCE
3	EMPLOYEE NAME1	450010	1,570.00	1,480.00	90.00
4	EMPLOYEE NAME2	450146	1,850.00	1,588.00	262.00

<tbody>
</tbody>

 

[oldbrewer]

=if(q3<>"",r3-s3,"")

 

[Peter_SSs]

See if this does what you want.

Sub Insert_Formula()
  Dim rSalary As Range, rActualSalary As Range, rDifference As Range
  
  Set rSalary = Rows(2).Find(What:="salary", LookAt:=xlWhole, MatchCase:=False)
  Set rActualSalary = Rows(2).Find(What:="actual salary", LookAt:=xlWhole, MatchCase:=False)
  Set rDifference = Rows(2).Find(What:="difference", LookAt:=xlWhole, MatchCase:=False)
  If Not rSalary Is Nothing And Not rActualSalary Is Nothing And Not rDifference Is Nothing Then
    With rDifference.Offset(1).Resize(Cells(Rows.Count, rSalary.Column).End(xlUp).Row - 2)
      .FormulaR1C1 = "=RC[" & rSalary.Column - .Column & "]-RC[" & rActualSalary.Column - .Column & "]"
    End With
  End If
End Sub

 

[Panoos64]

Thank you so much Peter! Is perfect work. Many thanks also for your continued support. Hv a great, lovely day!

 

[Peter_SSs]

Thank you so much Peter! Is perfect work. Many thanks also for your continued support. Hv a great, lovely day!

You're welcome. Thanks for the kind words.