Repeat formula for multiple rows

The following formula takes data from a single long row and organizes it into a compact table. I am trying to use relative references so that I can extend the formula to multiple rows. I have forgotten how to do that. Thanks for any help.

Sub ChurchPastorList()




' ChurchPastorList Macro
'
' Keyboard Shortcut: Ctrl+Shift+C

Range("A1").Select
    ActiveCell.Range("A1:A295").Select
Do Until IsEmpty(ActiveCell)

    ActiveCell.Offset(-294, 0).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(294, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-294, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(294, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-294, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(294, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-294, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(294, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-294, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(294, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-294, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(294, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-294, 3).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(295, -8).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-295, 10).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(295, -9).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-295, 10).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(295, -9).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-295, 12).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(295, -9).Range("A1").Select
    ActiveSheet.Paste
Loop
End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

This is NOT a formula, it is a macro made up of code.