Using Loops for Repetitive Task

[fa888]

Hi I'm very new to VBA and am learning. I recorded a macro as below. Can it be simplified using a Loop function somehow? I would like to loop until Column A is empty. Thank you. Felix

Sub PAIRING()

    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=RC[-3]"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "=RC[-3]"
    Range("E2").Select
    Sheets("Analysis").Select
    Selection.Copy
    Sheets("PAIRS").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-3]"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-3]"
    Range("E2").Select
    Sheets("Analysis").Select
    Selection.Copy
    Sheets("PAIRS").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=R[2]C[-3]"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "=R[2]C[-3]"
    Range("E2").Select
    Sheets("Analysis").Select
    Selection.Copy
    Sheets("PAIRS").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub