Macro that covers 3 rows of headers

jocote46

Board Regular
Joined
May 11, 2009
Messages
57
Hello fellows excelcionals! as the title say i have a huge report that at the moment there is a lot of manual editing on lots of cells that are pretty much repetitive so i thought there is got to be an easier way to do this. look at the example below:
1669078041133.png


1. row is title "Earnings" , first level goes all the way to column BG, then a new headers begins"Taxes" with it's own 2nd header and then a third "header"Taxes ER" and then a 4th header "Deductions"
2 2nd Row is a second level header
3. 3rd row, is two column header under second row.

goal is the following: on the third row, i would like to show like this:
1669077997839.png



Object is to add " REG" to "HRS" and where the word amount is replace with "REG", "DT", etc. whatever the second row header is then that should be copy down. Anyway, i hope to do this to :
* Earnings
*Taxes
*TaxesER
*Deductions
1669078353647.png


1669078381667.png


1669078415850.png


The Range of columns covers from A-JZ and includes all the 4th 1st level headers above mentioned. hope i didn't confuse you. thank you so much in advance , you will save me a good 30-45 minutes having to do this manually.
 

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.
thank you guys , but I created the macro the old fashion way, it's a lot of copy and paste thru a lot of columns but it worked. this questions is now closed.
 
Upvote 0
thank you guys , but I created the macro the old fashion way, it's a lot of copy and paste thru a lot of columns but it worked. this questions is now closed.
Glad you seem to have something working. If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.
 
Upvote 0
Glad you seem to have something working. If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solutil
here is the marco i recorded :

VBA Code:
Sub payrollData()
'
' payrollData Macro
'

'
    ActiveCell.FormulaR1C1 = "=CONCATENATE(R[-1]C, "" Hrs"")"
    Range("L3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("K3").Select
    Selection.Copy
    Range("M3").Select
    ActiveSheet.Paste
    Range("O3").Select
    ActiveSheet.Paste
    Range("Q3").Select
    ActiveSheet.Paste
    Range("S3").Select
    ActiveSheet.Paste
    Range("U3").Select
    ActiveSheet.Paste
    Range("W3").Select
    ActiveSheet.Paste
    Range("Y3").Select
    ActiveSheet.Paste
    Range("AA3").Select
    ActiveSheet.Paste
    Range("AC3").Select
    ActiveSheet.Paste
    Range("AE3").Select
    ActiveSheet.Paste
    Range("AG3").Select
    ActiveSheet.Paste
    Range("AI3").Select
    ActiveSheet.Paste
    Range("AK3").Select
    ActiveSheet.Paste
    Range("AM3").Select
    ActiveSheet.Paste
    Range("AO3").Select
    ActiveSheet.Paste
    Range("AQ3").Select
    ActiveSheet.Paste
    Range("AS3").Select
    ActiveSheet.Paste
    Range("AU3").Select
    ActiveSheet.Paste
    Range("AW3").Select
    ActiveSheet.Paste
    Range("AY3").Select
    ActiveSheet.Paste
    Range("BA3").Select
    ActiveSheet.Paste
    Range("BC3").Select
    ActiveSheet.Paste
    Range("BE3").Select
    ActiveSheet.Paste
    Range("BG3").Select
    ActiveSheet.Paste
    Range("BI3").Select
    ActiveSheet.Paste
    Range("BK3").Select
    ActiveSheet.Paste
    Range("BM3").Select
    ActiveSheet.Paste
    Range("BO3").Select
    ActiveSheet.Paste
    Range("BQ3").Select
    ActiveSheet.Paste
    Range("BS3").Select
    ActiveSheet.Paste
    Range("BU3").Select
    ActiveSheet.Paste
    Range("BW3").Select
    ActiveSheet.Paste
    Range("BY3").Select
    ActiveSheet.Paste
    Range("CA3").Select
    ActiveSheet.Paste
    Range("CC3").Select
    ActiveSheet.Paste
    Range("CE3").Select
    ActiveSheet.Paste
    Range("CG3").Select
    ActiveSheet.Paste
    Range("CI3").Select
    ActiveSheet.Paste
    Range("CK3").Select
    ActiveSheet.Paste
    Range("CM3").Select
    ActiveSheet.Paste
    Range("CO3").Select
    ActiveSheet.Paste
    Range("CQ3").Select
    ActiveSheet.Paste
    Range("CS3").Select
    ActiveSheet.Paste
    Range("CU3").Select
    ActiveSheet.Paste
    Range("CW3").Select
    ActiveSheet.Paste
    Range("CY3").Select
    ActiveSheet.Paste
    Range("DA3").Select
    ActiveSheet.Paste
    Range("DC3").Select
    ActiveSheet.Paste
    Range("DE3").Select
    ActiveSheet.Paste
    Range("DG3").Select
    ActiveSheet.Paste
    Range("DI3").Select
    ActiveSheet.Paste
    Range("DK3").Select
    ActiveSheet.Paste
    Range("DM3").Select
    ActiveSheet.Paste
    Range("DO3").Select
    ActiveSheet.Paste
    Range("DQ3").Select
    ActiveSheet.Paste
    Range("DS3").Select
    ActiveSheet.Paste
    Range("DU3").Select
    ActiveSheet.Paste
    Range("DW3").Select
    ActiveSheet.Paste
    Range("DY3").Select
    ActiveSheet.Paste
    Range("EA3").Select
    ActiveSheet.Paste
    Range("EC3").Select
    ActiveSheet.Paste
    Range("EE3").Select
    ActiveSheet.Paste
    Range("EG3").Select
    ActiveSheet.Paste
    Range("EI3").Select
    ActiveSheet.Paste
    Range("EK3").Select
    ActiveSheet.Paste
    Range("EM3").Select
    ActiveSheet.Paste
    Range("EO3").Select
    ActiveSheet.Paste
    Range("EQ3").Select
    ActiveSheet.Paste
    Range("ES3").Select
    ActiveSheet.Paste
    Range("EU3").Select
    ActiveSheet.Paste
    Range("EW3").Select
    ActiveSheet.Paste
    Range("EY3").Select
    ActiveSheet.Paste
    Range("FA3").Select
    ActiveSheet.Paste
    Range("FC3").Select
    ActiveSheet.Paste
    Range("FE3").Select
    ActiveSheet.Paste
    Range("FG3").Select
    ActiveSheet.Paste
    Range("FI3").Select
    ActiveSheet.Paste
    Range("FK3").Select
    ActiveSheet.Paste
    Range("FM3").Select
    ActiveSheet.Paste
    Range("FO3").Select
    ActiveSheet.Paste
    Range("FQ3").Select
    ActiveSheet.Paste
    Range("FS3").Select
    ActiveSheet.Paste
    Range("FU3").Select
    ActiveSheet.Paste
    Range("FW3").Select
    ActiveSheet.Paste
    Range("FY3").Select
    ActiveSheet.Paste
    Range("GA3").Select
    ActiveSheet.Paste
    Range("GC3").Select
    ActiveSheet.Paste
    Range("GE3").Select
    ActiveSheet.Paste
    Range("GG3").Select
    ActiveSheet.Paste
    Range("GI3").Select
    ActiveSheet.Paste
    Range("GK3").Select
    ActiveSheet.Paste
    Range("GM3").Select
    ActiveSheet.Paste
    Range("GO3").Select
    ActiveSheet.Paste
    Range("GQ3").Select
    ActiveSheet.Paste
    Range("GS3").Select
    ActiveSheet.Paste
    Range("GU3").Select
    ActiveSheet.Paste
    Range("GW3").Select
    ActiveSheet.Paste
    Range("GY3").Select
    ActiveSheet.Paste
    Range("HA3").Select
    ActiveSheet.Paste
    Range("HC3").Select
    ActiveSheet.Paste
    Range("HE3").Select
    ActiveSheet.Paste
    Range("HG3").Select
    ActiveSheet.Paste
    Range("HI3").Select
    ActiveSheet.Paste
    Range("HK3").Select
    ActiveSheet.Paste
    Range("HM3").Select
    ActiveSheet.Paste
    Range("HO3").Select
    ActiveSheet.Paste
    Range("HQ3").Select
    ActiveSheet.Paste
    Range("HS3").Select
    ActiveSheet.Paste
    Range("HU3").Select
    ActiveSheet.Paste
    Range("HW3").Select
    ActiveSheet.Paste
    Range("HY3").Select
    ActiveSheet.Paste
    Range("IA3").Select
    ActiveSheet.Paste
    Range("IC3").Select
    ActiveSheet.Paste
    Range("IE3").Select
    ActiveSheet.Paste
    Range("IG3").Select
    ActiveSheet.Paste
    Range("II3").Select
    ActiveSheet.Paste
    Range("IK3").Select
    ActiveSheet.Paste
    Range("IM3").Select
    ActiveSheet.Paste
    Range("IO3").Select
    ActiveSheet.Paste
    Range("IQ3").Select
    ActiveSheet.Paste
    Range("IS3").Select
    ActiveSheet.Paste
    Range("IU3").Select
    ActiveSheet.Paste
    Range("IW3").Select
    ActiveSheet.Paste
    Range("IY3").Select
    ActiveSheet.Paste
    Range("JA3").Select
    ActiveSheet.Paste
    Range("JC3").Select
    ActiveSheet.Paste
    Range("JE3").Select
    ActiveSheet.Paste
    Range("JG3").Select
    ActiveSheet.Paste
    Range("JI3").Select
    ActiveSheet.Paste
    Range("JK3").Select
    ActiveSheet.Paste
    Range("JM3").Select
    ActiveSheet.Paste
    Range("JO3").Select
    ActiveSheet.Paste
    Range("JQ3").Select
    ActiveSheet.Paste
    Range("JS3").Select
    ActiveSheet.Paste
    Range("JU3").Select
    ActiveSheet.Paste
    Range("JW3").Select
    ActiveSheet.Paste
    Range("JY3").Select
    ActiveSheet.Paste
    Range("KA3").Select
    Selection.End(xlToLeft).Select
    Selection.End(xlUp).Select
    Range("JZ3").Select
    Selection.End(xlToLeft).Select
    Range("L3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("N3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("P3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("R3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("T3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("V3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("X3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("Z3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AD3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("AZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BD3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("BZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CD3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("CZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DD3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("DZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("ED3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("ER3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("ET3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("EZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FD3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("FZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GD3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("GZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HD3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("HZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("ID3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("IZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JB3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JD3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JF3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JH3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JJ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JL3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JN3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JP3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JR3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JT3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JV3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JX3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JZ3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-1]"
    Range("JZ3").Select
    Selection.End(xlToLeft).Select
    Range("K3").Select
End Sub
 
Last edited by a moderator:
Upvote 0
Thanks for posting the solution code. I have fixed the code tags for you this time but you need to paste your code between the tags here
1669267296405.png


.. not here

1669267352223.png



Perhaps you could try this code instead with a copy of your workbook.
I have assumed that first row 1 heading (Earnings) is in column K. (There was a slight confusion as the very first picture in post #1 shows it in column J but the second picture showed in in column K)
I have also assumed that the headers in row 2 are not merged across 2 columns. (There was a slight confusion as the very first picture in post #1 shows them merged but the second picture shoes them not merged)

VBA Code:
Sub payrollData_v2()
  Range("K3:L3").Formula = Array("=K2&"" Hrs""", "=K2")
  Range("K3:L3").Copy Destination:=Range("K3", Cells(2, Columns.Count).End(xlToLeft).Offset(1, 1))
End Sub

If those row 2 headers are each merged across 2 columns then try this code instead.

VBA Code:
Sub payrollData_v3()
  Range("K3:L3").Formula = Array("=K2&"" Hrs""", "=K2")
  Range("K3:L3").Copy Destination:=Range("K3", Cells(2, Columns.Count).End(xlToLeft).Offset(1).Cells(, 2))
End Sub
 
Last edited:
Upvote 0
Solution
Peter,

thank you for your help on this and fixing the code. Yes, the first 3 rows are not supposed to be merged. I apologize for the confusion on the pictures. and yes, the Header Earning should be on column K. I will test the code you created and see if it works.

thanks again.
Walter
 
Upvote 0
You're welcome. Thanks for the follow-up.
The macro recorder is a good way to get started on some code - but it can produce some very long-winded code! :)
 
Upvote 0

Forum statistics

Threads
1,215,066
Messages
6,122,948
Members
449,095
Latest member
nmaske

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top