Dim endOfIntRegister As Integer
    Dim endOfBank As Integer

    endOfBank = 149
    endOfIntRegister = 71

    'Clear register colors
    For i = 3 To endOfIntRegister
        For j = 1 To 9
            Cells(i, j).Interior.ColorIndex = xlNone
            Cells(i, j).Font.Bold = False
            Cells(i, j).Font.Color = Black
        Next j
    Next i

    'Clear reconciliation text (dep,desc,pay)
    For i = 3 To endOfIntRegister
        For j = 10 To 12
            Cells(i, j).Value = Null
        Next j
    Next i


    'Clear bank colors
        For i = 3 To endOfBank
        For j = 24 To 27
            Cells(i, j).Interior.ColorIndex = xlNone
            Cells(i, j).Font.Bold = False
            Cells(i, j).Font.Color = Black
        Next j
    Next i