match, copy paste clonum C in sheet2

Question

Sub ali()

Dim r As Range Dim rr As Range Set r = Range("A1:A4") Set rr = Range("B1:C4")

If Not IsError(Application.Match(r, rr, 0)) Then