Huge Macro Help, Not totaling correctly

So these Macros were made from someone on here. It stopped doing the totals right. If you go look at hospitality aide the 2019 Totals and 2018 Totals are under a date. I need them at the end of the report with the other totals. Does anyone know whats wrong?

Originally Posted by JLGWhiz

I see the grand total for Hospitality Aide on row 907 showing hours and amounts for the dates indicated on row 6. The entries for Hospitality Aide appears to have stopped after March 2018. It is possible the position was eliminated. Whoever set the Split screen probably set it one row too high which makes the Hous and Amounts headers on row 7 hidden as a user scrolls down the table. The Grand Total for each category appears to be in the correct place as far as I can determine. I could not find a macro that calculates the entries, but I assume there must be one, since there were no formulas on the sheet.

Yes it was eliminated in 2018, but the last two columns in Hospitality Aide should be on 2018 total and the Grand Total line not under 2/26/18 & 3/12/18 Payroll. Is there a way to fix this? I have 3 other spreadsheets exactly like this but they are wrong in different departments. So I really want to find a solution.

Thanks!

Originally Posted by JLGWhiz

I don't really understand the problem, but since that position is no longer active, I think you could just manually copy the data you need to where you want it as a static reference. I still have not been able to find any code or formulas that control where the data is on the sheet.

Attachment 632613

In column BF 2018 Total is shows zero which is incorrect.

But if you can't find where it pulls over then there is nothing we can do. Thank you for looking!

Also it's an issue with Medical Records, Dietary Supervisor, and CNA Alzheimer. Each of these has the year total and the grand totals in the last column of there last pay which is incorrect.

THIS THING IS ALL WRONG!

On the pivot table it shows those payrolls in hospitality aide being for 3/11/19-4/22/19. The Report has them 1/2/18-2/12/18...

UGH!!! THIS IS A NIGHTMARE

I found the old post whre the guy made it. He said this is the Macro Copying from the Pivot Table.

PHP Code: 

Sub BuildReportHeaders()
Sheet1.UsedRange.Clear 'clear old report
Sheet2.Range("A2").Resize(3, Sheet2.UsedRange.Columns.Count).Copy Sheet1.Range("A4")
lcol = Sheet1.Range("A6").CurrentRegion.Columns.Count

With Sheet1.Range("A4:A6").Resize(, lcol)
            .Interior.Color = RGB(180, 180, 180)
            .Font.Bold = True
            .Offset(, 3).HorizontalAlignment = xlRight
End With

With Sheet1.Range("A6").End(xlToRight)                      'goto the last filled cell on row 6
    .Offset(-2, 1).Value = Left(.Offset(-2, 1).Value, 4)    'go 2 rows up (row 4) and 1 col right and shorten the value to first 4 char (year)
    .Offset(-2, 2).Value = ""                               'Go 2 rows up and 2 col right and empty that cell
    .Offset(-1, 1).Resize(1, 2).Value = "Total"             'Go 1 row up (row 5) and 1 col right resize range to 2 col and fill both cells with Total
    .Offset(, 1).Value = "Hours"                            'Stay on this row go 1 col right and change cell to Hours
    .Offset(, 2).Value = "Amount"                           'Stay on this row go 2 col right and change cell to Amount
End With

With Sheet1.Range("A6").End(xlToRight)
    .Offset(-2, 1).Value = Left(.Offset(-2, 1).Value, 4)
    .Offset(-2, 2).Value = ""
    .Offset(-1, 1).Resize(1, 2).Value = "Total"
    .Offset(, 1).Value = "Hours"
    .Offset(, 2).Value = "Amount"
    'Set up total for all years
    .Offset(-2, 3).Resize(1, 2).Value = ""
    .Offset(-1, 3).Resize(1, 2).Value = "Total"
    .Offset(, 3).Value = "Hours"
    .Offset(, 4).Value = "Amount"
End With

Sheet1.Range("A4:C6").ClearContents

End Sub