Make recorded macro loop

Originally Posted by arlu1201

It will be good if you explain what your code is trying to do. Sometimes while recording the macro, if you click on the wrong cell(s), it still includes it and this will not help us in editing the code for you.

Well it's a little hard to say but I'm converting columns to rows. Example column E has a header row and then below that are several fees. I'm moving the fees into column b and then in column C I'm copying the header row for all the fees for that column and the next columns goes right beneth the prior column in the rows. The current macro is working great but I just don't know how to get it to keeping going to the next column until they have all been converted to rows.

Originally Posted by cowannbell

Well it's a little hard to say but I'm converting columns to rows. Example column E has a header row and then below that are several fees. I'm moving the fees into column b and then in column C I'm copying the header row for all the fees for that column and the next columns goes right beneth the prior column in the rows. The current macro is working great but I just don't know how to get it to keeping going to the next column until they have all been converted to rows.

Sub ARS2013test()
'
' ARS2013test Macro
'
' Keyboard Shortcut: Ctrl+t
'
    ActiveCell.Offset(0, 1).Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveCell.Offset(0, -3).Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Selection.End(xlUp).Select
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.End(xlToRight).Select
    Selection.Copy
    ActiveCell.Offset(1, -2).Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1:A31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlUp).Select
    ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(1, -1).Range("A1").Select
End Sub