たぶんIF関数になると思うのですが…

Ｃ列～Ｎ列のＭＡＸを出すＯ列を追加して、

Ｏ列をオートフィルタで４５時間以上のデータを表示で抽出できると思いますが。

視覚的に４５時間以上の月を確認したければ、条件付き書式設定で、

４５時間以上のデータに色を付けるとか。

方法として最初に思いつくのは、

１　Ｏ列に45時間以上の月がある行にしるしをつける。

２　オートフィルタでそれ以外を非表示にする。

３　シート２にコピーする。

４　45時間以下のデータを非表示にする。

という手順を踏めばできそうですが、この方法はやめて関数で実現する違う方法を紹介します。

１　まず、作業列となる列をSheet1のＯ列として

　Ｏ１セルの値を０

　Ｏ２セルの数式を

=IF(AND(C2<45,D2<45,E2<45,F2<45,G2<45,H2<45,I2<45,J2<45,K2<45,L2<45,M2<45,N2<45),O1,O1+1)

　にして、下にコピー

２　Shee1の1行目の見出しをSheet2の1行目の見出しとしてそのままコピー

３　Sheet2のＡ２セルの数式を

=IF(ISNA(INDEX(Sheet1!A:A,MATCH(ROW()-1,Sheet1!$O:$O,0))),"",INDEX(Sheet1!A:A,MATCH(ROW()-1,Sheet1!$O:$O,0)))

　にして、Ｂ２セルにもコピー

４　Sheet2のＣ２セルの数式を

=IF(ISNA(IF(INDEX(Sheet1!C:C,MATCH(ROW()-1,Sheet1!$O:$O,0))>=45,INDEX(Sheet1!C:C,MATCH(ROW()-1,Sheet1!$O:$O,0)),"")),"",IF(INDEX(Sheet1!C:C,MATCH(ROW()-1,Sheet1!$O:$O,0))>=45,INDEX(Sheet1!C:C,MATCH(ROW()-1,Sheet1!$O:$O,0)),""))

　にして、Ｎ２セルまでコピー

５　３と４で作ったＡ２：Ｎ２セルの数式を下にコピー

これで関数だけでできます。

ならば、ifだけでいいのでは？

sheet2に

A2に　=Sheet1!A2

B2に　=Sheet1!B2

C2に　=IF(Sheet1!C2>=45,Sheet1!C2,"")

として、

C2を選んでN2までコピー

C2からN2を選んで必要な行までコピー

これでいいのではないかと。

とりあえず、sheet1をコピーしてsheet2を作って、IF関数でsheet1の同一セルを参照して、

45時間以上ならそのまま表示、45時間未満なら０(または×等)で表示させるのはどうですか？

IF関数がどっさり入りますが、1つ作ってコピー＆ペーストなので、さほど面倒でもないと思いますが…

使用方法は

（１）Alt＋F11をおす。

（２）開いたウィンドウで、挿入⇒標準モジュールを押す。

（３）表示されたエリアに下記をコピーする。

（４）EXCELに戻ってAlt＋F8を押す。

（５）名前（今回はOverWorkList）を選択してOKを押す。

以上です。

上記を実行すると、45時間以上、80時間以上、100時間以上の三つのシートができ、

O列に、オーバーした月数が表示されます。

'--------------------------------------------------------------------
Sub OverWorkList()
'--------------------------------------------------------------------
    Dim srcWS As Worksheet
    Set srcWS = ActiveSheet
    
    makeOWL srcWS, 45#
    makeOWL srcWS, 80#
    makeOWL srcWS, 100#
End Sub

'--------------------------------------------------------------------
Sub makeOWL(srcWS As Worksheet, trHour As Double)
'--------------------------------------------------------------------
    Dim dstWSName As String
    dstWSName = "残業_" & CStr(trHour)
        
    Dim dstWS As Worksheet
    On Error Resume Next
    Set dstWS = Worksheets(dstWSName)
    On Error GoTo 0
    
    If Not dstWS Is Nothing Then
        If MsgBox("[" & dstWSName & "]シートが存在します。再作成しますか？", vbYesNo, "確認") = vbNo Then
            Exit Sub
        End If
        Application.DisplayAlerts = False
        Worksheets(dstWSName).Delete
        Application.DisplayAlerts = True
    End If
    
    srcWS.Copy after:=Worksheets(Worksheets.Count)
    Set dstWS = ActiveSheet
    dstWS.name = dstWSName
    
    
    Dim lastRow As Long
    lastRow = dstWS.Range("A" & Rows.Count).End(xlUp).Row
    
    Dim r As Range
    For Each r In Range("B2:N" & lastRow)
        If r.Value < thHour Then
            r.Value = ""
        End If
    Next
    
    dstWS.Range("N1").Resize(lastRow, 1).Copy Destination:=dstWS.Range("O1")
    dstWS.Range("O1").Value = "回数"
    
    Dim i As Long
    For i = 2 To lastRow
        dstWS.Cells(i, "O").Formula = "=COUNTA(C" & i & ":N" & i & ")"
    Next
End Sub

わざわざシートを分ける意味が無い回答ですが、

先に回答したものを1シートで集計するように変更しました。

（数式だけでもできる内容ですが。）

最終的に「どのような結果を得たい（そのデータをどうしたい）」という部分がもっと明確になれば

また違った回答があると思うのですが、1シートで3つのケースを分類（色で）し、集計しています。

時間の入力は数値で入力していることを期待していますが、時間で入力していたら変更が必要です。

(if の部分の数値（45#、80#、100#）をそれぞれ（1.875、3.3333、4.1666）に変更)

Option Explicit

'--------------------------------------------------------------------
Sub OverWorkList()
'--------------------------------------------------------------------
    Const dstWSName = "残業集計"
    
    Dim srcWS As Worksheet
    Set srcWS = ActiveSheet
    
    Dim dstWS As Worksheet
    On Error Resume Next
    Set dstWS = Worksheets(dstWSName)
    On Error GoTo 0
    
    If Not dstWS Is Nothing Then
        If MsgBox("[" & dstWSName & "]シートが存在します。再作成しますか？", vbYesNo, "確認") = vbNo Then
            Exit Sub
        End If
        Application.DisplayAlerts = False
        Worksheets(dstWSName).Delete
        Application.DisplayAlerts = True
    End If
    
    srcWS.Copy after:=Worksheets(Worksheets.Count)
    Set dstWS = ActiveSheet
    dstWS.name = dstWSName
    
    Dim lastRow As Long
    lastRow = dstWS.Range("A" & Rows.Count).End(xlUp).Row
    
    dstWS.Range("N1").Resize(lastRow, 1).Copy Destination:=dstWS.Range("O1")
    dstWS.Range("N1").Resize(lastRow, 1).Copy Destination:=dstWS.Range("P1")
    dstWS.Range("N1").Resize(lastRow, 1).Copy Destination:=dstWS.Range("Q1")
    dstWS.Range("O1").Value = "45～80"
    dstWS.Range("P1").Value = "80～100"
    dstWS.Range("Q1").Value = "100～"
    
    Application.Calculation = xlCalculationManual
    Dim i As Long
    For i = 2 To lastRow
        dstWS.Cells(i, "Q").Formula = "=COUNTIF(C" & i & ":N" & i & ","">=100"")"
        dstWS.Cells(i, "P").Formula = "=COUNTIF(C" & i & ":N" & i & ","">=80"")-Q" & i
        dstWS.Cells(i, "O").Formula = "=COUNTIF(C" & i & ":N" & i & ","">=45"")-P" & i & "-Q" & i
    Next

    Dim r As Range
    For Each r In Range("B2:N" & lastRow)
        If r.Value < 45# Then
            r.Font.ColorIndex = 16
        ElseIf r.Value < 80# Then
            r.Interior.ColorIndex = 19
        ElseIf r.Value < 100# Then
            r.Interior.ColorIndex = 44
        Else
            r.Interior.ColorIndex = 26
        End If
    Next
    Application.Calculation = xlCalculationAutomatic
End Sub