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
Bookmarks