Optional Information

OS: Windows 98; Browser: Mozilla

Already Tried:

Public Sub Totals()
Dim x As Variant
Dim T As Variant
Dim y As Variant
Dim row As Variant
Dim column As Variant
Dim w As Variant
Dim z As Variant

Sheets("CNA").Activate
row = 1
column = 1
T = FrmTotals.DTPicker1.Value

Do Until Cells(row, column).Value = FrmTotals.DTPicker1.Value
row = row + 1
If Cells(row, column).Value < 1 Then Exit Do
Select Case FrmTotals.DTPicker1.Value
    Case Is < Cells(row, column).Value
       MsgBox ("Data not found for " & FrmTotals.DTPicker1.Value & _
        " . Please verify your data.")
              
        Exit Sub
End Select
Loop
row = row
Do Until Sheets("CNA").Cells(row, 1).Value > FrmTotals.DTPicker2.Value
z = Cells(row, 1).Value
If Cells(row, 1).Value < 1 Then Exit Do
Select Case Cells(row, 2).Value
        Case Is = "IRF"
            Select Case Cells(row, 3).Value
               Case Is = "Day"
                    
                    Do Until Cells(row, 3).Value = "EVE"
                    If Cells(row, 3).Value = "EVE" Then Exit Do
                    If Cells(row, 3).Value < 1 Then Exit Do
                        Select Case Cells(row, 4).Value
                            Case Is = "CNA"
                                x = Cells(row, 5).Value
                                y = Cells(row, 6).Value
                                Sheets("Totals").Range("I21").Value = Sheets("Totals").Range("I21").Value + ((x * 8) / y)
                        End Select
                    
                    row = row + 1
                    Loop
               Case Is = "EVE"
                    
                    Do Until Cells(row, 3).Value = "NOC"
                    If Cells(row, 3).Value = "NOC" Then Exit Do
                    If Cells(row, 3).Value < 1 Then Exit Do
                        Select Case Cells(row, 4).Value
                            Case Is = "CNA"
                                x = Cells(row, 5).Value
                                y = Cells(row, 6)