Как я могу вставить число в столбце, если у меня есть несколько критериев в двух столбцах

Question

Мне нужно вставить 2 в последний столбец, если в некоторых столбцах одновременно указаны доллары США и юаня в столбцах Z и AA.

Я уже пытался отфильтровать, но не знаю, как я могу это сделать. заполните последний столбец 2 Это то, что я уже пробовал

Sub Copies()

Dim Field1 As Integer, Field2 As Integer, FullRng As Range, i As Long, rng1 As Range

Set FullRng = Application.InputBox(Prompt:="Enter range", Type:=8)

Set rng1 = Application.InputBox(Prompt:="Enter range", Type:=8)

Set rng2 = Application.InputBox(Prompt:="Enter range", Type:=8)

FullRng.AutoFilter

Field1 = InputBox("Enter the number of column of USD on TierX(1)")

Field2 = InputBox("Enter the number of column of CNY on TierX(1)")

ActiveSheet.Range("A9:EH5500").AutoFilter Field:=Field1, Criteria1:="USD"

ActiveSheet.Range("A9:EH5500").AutoFilter Field:=Field2, Criteria1:="CNY"

rng1.Insert

rng2.Value = 2