【VBA】4か月分の使用量を按分して整数にならすコード

Sub Main()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    Dim row As Long

    For row = 2 To 100
    
        Dim total As Long
        If IsError(ws.Cells(row, 5).Value) Then
            GoTo ErrorHandler
        Else
            total = ws.Cells(row, 5).Value
        End If
        
            ' あまりによって場合分け
            Select Case total Mod 4
                Case 0
                    ws.Cells(row, 1).Value = total \ 4
                    ws.Cells(row, 2).Value = total \ 4
                    ws.Cells(row, 3).Value = total \ 4
                    ws.Cells(row, 4).Value = total \ 4
                Case 1
                    ws.Cells(row, 1).Value = (total \ 4) + 1
                    ws.Cells(row, 2).Value = total \ 4
                    ws.Cells(row, 3).Value = total \ 4
                    ws.Cells(row, 4).Value = total \ 4
                Case 2
                    ws.Cells(row, 1).Value = (total \ 4) + 1
                    ws.Cells(row, 2).Value = (total \ 4) + 1
                    ws.Cells(row, 3).Value = total \ 4
                    ws.Cells(row, 4).Value = total \ 4
                Case 3
                    ws.Cells(row, 1).Value = (total \ 4) + 1
                    ws.Cells(row, 2).Value = (total \ 4) + 1
                    ws.Cells(row, 3).Value = (total \ 4) + 1
                    ws.Cells(row, 4).Value = total \ 4
            End Select
ErrorHandler:
    Next row
    MsgBox "処理完了"
End Sub

Do While ws.Cells(row, 5).Value <> ""

Loop