VBA to copy specific cells

[topi1]

Hi, can someone please help with the macro where it copies rows (cells) B and C when the value in the corresponding rows(cells) in the column A is 1 or 2. Following is the example. Thank you.

Before VBA
1 a q
1
2 c e
2 d r
3 e t
3 f y

After VBA
a q

c e
d r

 

[topi1]

@Coyotex3 you don't need the loop.

Sub DataSplit_mod()
    Dim i As Long
    Dim LR As Long
   
    LR = Range("A" & Rows.Count).End(xlUp).Row
   
    Range("D1:E" & LR).FormulaR1C1 = _
        "=IF(AND(RC1<3,RC[-2]<>""""),RC[-2],"""")"
    Range("D1:E" & LR).Value = Range("D1:E" & LR).Value
End Sub

Thank you.