Цикл и экспорт на новый лист

Question

Я начинающий программист VBA.Я пытаюсь проверить некоторые тепловые данные.Я жестко закодировал верхний и нижний пределы, необходимые для удовлетворения параметров.Мне нужна помощь с вызовом данных с рабочего листа, прохождением его через цикл и выводом новых данных на новый рабочий лист.Я хочу, чтобы вывод был «слишком горячим» или «слишком холодным».

В конце концов, я хочу добавить больше кода для вычисления разницы во времени и вывести его во второй лист.

У меня около 4000 строк данных.20 столбцов по 4000 строк.

Любая помощь и совет высоко ценится!

Я попытался использовать окно сообщения для вывода, но слишком много тестовых данных.

Sub SelectCaseBoomThermal()
'Check dwell temperature in case statement. Loops through rows and columns from sheet 1 in workbook.

SelectCaseBoomThermal (Temp)
Dim ramptemp As Long

'Create a counter
Dim i As Integer
i = 1

'Loop while the counter is less than 100
Do While i < 3453

    MsgBox i

    For i = 29 To dataCol

    Select Case Temp

        Case Is >= 107
    'Check if rampTemp is too hot
        MsgBox "Ramp temp is too hot (+)"

        Case Is >= 97
    'Check if rampTemp is too cold
        MsgBox "Ramp temp is too cold (+)"

        'Case Is <= -137
    'Check if rampTemp is too hot
        MsgBox "Ramp temp is too hot (+)"

        Case Is >= -127
    'Check if rampTemp is too cold
        MsgBox "Ramp temp is too cold (+)"

    End Select

Next i
        Exit Do

    End If

'Add 1 to the counter
 i = i + 1

Loop

End Sub

Я хочу, чтобы мои выходные данные были в новой рабочей таблице.