Sub макрос9()
Dim bpnWs As Worksheet
Dim userWs As Worksheet

Set bpnWs = Worksheets("BPN2 Mode")
Set userWs = Worksheets("User")

Dim trx As Integer
Dim ce As Integer
Dim rrc As Integer

Dim trx1 As Integer
Dim ce1 As Integer
Dim rrc1 As Integer

trx = CInt(userWs.Cells(4, 4))
ce = CInt(userWs.Cells(4, 6))
rrc = CInt(userWs.Cells(4, 13))

'Dim rn As Range

userWs.Range(userWs.Cells(1, 18), userWs.Cells(1, 24)).EntireColumn.Clear

paramSum = trx + ce + rrc

j = 11

For i = 3 To 563
    trx1 = CInt(bpnWs.Cells(i, 6).Value)
    ce1 = CInt(bpnWs.Cells(i, 7).Value)
    rrc1 = CInt(bpnWs.Cells(i, 8).Value)
    
    paramSum1 = trx1 + ce1 + rrc1
    If trx1 <= trx And ce1 <= ce And rrc1 <= rrc Then
    'If paramSum1 <= paramSum <= rrc Then
    
        bpnWs.Range(bpnWs.Cells(i, 2), bpnWs.Cells(i, 8)).copy
        userWs.Cells(j, 18).PasteSpecial xlPasteValues
        j = j + 1
    End If
    
    
    
    
Next i

Set bpnWs = Nothing
Set userWs = Nothing

End Sub