Private Sub CommandButton1_Click()
ReadAndWriteValues
End Sub

Sub ReadAndWriteValues()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceWorkbook As Workbook
    Dim currentWorkbook As Workbook
    Dim i As Long
    Dim targetRow As Long

    Set currentWorkbook = ThisWorkbook
    Set sourceWorkbook = Workbooks.Open("C:\Users\User\Downloads\VBA_Examples\Data1_Simple.xlsx") ' Set sourceWorkbook = ThisWorkbook
    Set sourceWorkbook = ThisWorkbook
    Set sourceSheet = sourceWorkbook.Sheets("Sheet1") ' Change as needed
    Set targetSheet = currentWorkbook.Sheets("Results") ' Change as needed

    targetRow = 2 ' Start writing to row 2 in target sheet

    For i = 3 To 100 ' Or use: While sourceSheet.Cells(i, 1).Value <> ""
        Dim value1 As Variant, value2 As Variant

        value1 = sourceSheet.Cells(i, 2).Value ' Column C
        value2 = sourceSheet.Cells(i, 4).Value ' Column E

        ' Example condition: value2 must be greater than 100
        If IsNumeric(value2) And value2 > 100 Then
            targetSheet.Cells(targetRow, 1).Value = value1
            targetSheet.Cells(targetRow, 2).Value = value2
            targetRow = targetRow + 1
        End If
    Next i

    sourceWorkbook.Close True 'False ' Close source file without saving
    MsgBox "Process completed successfully!"
End Sub
