Creating a single Table with different formulas Excel VBA

[jazz2409]

It is in the Thread Tools link towards the top of the page. I have done it for you this time.

Hello, Sorry how do I add this line:

          With .Cells(nextrow, "G").Resize(1, 8)
                Select Case Worksheets("Weekly").Cells(i, "L").Value
                    
                    Case "P":  .Font.Color = vbGreen
                    Case "F":  .Font.Color = vbRed
                End Select
                .Font.Size = 8
                .Font.Bold = False
                .HorizontalAlignment = xlCenter
          End With

It's for if the sub category says P on the weekly (for the weekly cells of sub categories)/monthly (for the monthly cells of sub categories)sheets, the numbers will be color green. And then if it's F, the numbers will be red. Just for sub categories.

I tried adding it at the end after the select case statement for decimal/percentage. It worked while it was running but once it was done it went back to being black