I have code that is triggered when you click a button. This code prints exactly as I want if it finds a value is true.
There is 5 Groups of 14 columns of data it loops each group then moves to the next and checks if a value is true.
If so it copies the values in 3 ranges to a sheet and prints, then loops till it completes. So for every time it finds the value is True 1 of 5 sheets is printed, 1 per group each group has its own sheet, this all works perfectly


I now need to adjust this code that will be triggered by another button, in this case if that value is False. If it is True or has a 1 it skips and loops to next. I just need to change the way it copies and prints.
In this case it needs to loop through exactly the same, checking to see if the value is False.
If so, then loop through the 5 Groups of 14 columns and copy the same the values in the same 3 ranges.
This time thou every time it finds the value as False, it copies to 1 sheet then loops and copies to this same sheet.

Below I have showed a screenshot of main sheet showing the first 2 groups, below that a screenshot of the 2 Sheets that I want it copied to, I have keyed where I want the date from the main sheet to appear.
There may be no sheets in some of the groups or up to 14. These sheets have been set up with 3 pages, so after it pastes the first 5 it needs to go to next page.
I have tried to get somewhere with it but *** yet no luck.
Group 3.JPG
Group 2.JPG
Group 1.JPG
Below is the code this code is a exactly how it works if the Value True is found.
The only difference I have made is the
Array arrSh = Array("Nunawading", "Vermont", "Mitcham", "Blackburn", "Box Hill 1", "Box Hill 2")
Array arrCl = Array("Clear1", "Clear2", "Clear3", "Clear4", "Clear5", "Clear6")
Dim shData As Worksheet, shGroup As Worksheet
  Dim arrSh As Variant, arrCe As Variant, arrRn As Variant, arrCl As Variant
  Dim i As Long, j As Long, k As Long, lr As Long
  
  Application.ScreenUpdating = False
  arrSh = Array("Nunawading Bus", "Vermont Bus", "Mitcham Bus", "Blackburn Bus", "Box Hill Bus") 'Names of the 5 destinations Sheets
  arrCe = Array(21, 31, 41, 56, 75, 77) 'Rows where arrRn ranges are located,
  arrRn = Array("Nuna", "Verm", "Mitch", "Black", "Boxhill") 'The ranges that get copied and each have a number like Nuna1 through to Last Nuna14
  arrNm = Array("Name")
  arrCo = Array("Code")
  arrCl = Array("Clear7", "Clear8", "Clear9", "Clear10", "Clear11") 'This clears the Destinations sheets after Printing is complete
  
  
  Set shData = ThisWorkbook.Worksheets("Week Commencing")
  For i = 0 To UBound(arrSh)
    Set shGroup = Sheets(arrSh(i))
    k = 1
    For j = Columns("C").Column To Columns("P").Column
      If shData.Cells(arrCe(i), j) = False Then
        shData.Range(arrRn(i) & k).Copy
        lr = 5
        shGroup.Range("B7").PasteSpecial Paste:=xlPasteValues
        
        shData.Range(arrNm(0) & k).Copy
            
            shGroup.Range("C4").PasteSpecial Paste:=xlPasteValues
            
        shData.Range(arrCo(0) & k).Copy
            
            shGroup.Range("C5").PasteSpecial Paste:=xlPasteValues
      
      shGroup.PrintPreview
      
      End If
      k = k + 1
    Next j
  Next i
 
  For i = 0 To UBound(arrSh)
    Set shGroup = Sheets(arrSh(i))
    shGroup.Range(arrCl(i)).ClearContents
  Next i
  
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub
Hoping someone can assist me in getting what I am trying to do.