我學緊用VBA, 但好多野唔識,上網睇到有教學就跟住試下 有個位我唔係好知應該點改, 上網搵極都搵唔到類似CASE, 請問有冇人可以幫幫我?

Sub test()
Dim Rng As Range
Dim kc As Variant
Set Rng = Sheets("PRICELIST").[A:F]

With Sheets("ORDER")
For i = 2 To .[A65536].End(xlUp).Row
kx = .Cells(i, 1)
kc = Application.VLookup(kx, Rng, 6, 0)
If Not IsError(kc) Then .Cells(i, 2) = kc
Next
End With
End Sub


Sub test()
x = [A65536].End(xlUp).Row
For i = 2 To x
Cells(x, 2).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],PRICELIST!C1:C6,6,0),"""")"
Next
End Sub