Using a Macro to move data and then repeat process on the next row

[lookatmeimcamidee]

A macro was generated to move information from a re-usable form template on worksheet 1 into a log created on worksheet 2. Different imformation from the form will move to different fiels on the log. The macro works fine for the first row. It will not, however, repeat for the second line. Below is the code currently in the macro. Can someone please assist me on how I can update the code to repeat the process on the next row with new information once the new information is added to the re-usable form and the shortcut is used.

Thank you!


Sub PRFORM()
'
' PRFORM Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
ActiveCell.FormulaR1C1 = "='PR FORM'!RC[1]"
Range("B2").Select
ActiveCell.FormulaR1C1 = "='PR FORM'!R[-1]C"
Range("C2").Select
ActiveCell.FormulaR1C1 = "='PR FORM'!R[5]C[-1]"
Range("E2").Select
ActiveCell.FormulaR1C1 = "='PR FORM'!R[12]C[-3]"
Range("F2").Select
ActiveCell.FormulaR1C1 = "='PR FORM'!R[35]C[-5]"
Range("G2").Select
ActiveCell.FormulaR1C1 = "='PR FORM'!R[35]C[-5]"
Range("H2").Select
ActiveCell.FormulaR1C1 = "='PR FORM'!R[8]C[-6]"
Range("I2").Select
ActiveCell.FormulaR1C1 = "='PR FORM'!R[1]C[-7]"
Range("A2:I2").Select
Range("I2").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
End Sub