Incorporate Loop Function In Recorded Macro

Hi,

I have a CSV file which has data in the incorrect columns when the report has been created as per attachment.

I have recorded the macro below which I will need to select a cell in column N before activating the macro, instead of activating the macro x amount of times until I've gone through the whole workbook, I would like to be able to press the macro once and the whole sheet has been done then go to cell A1 if possible.

Sub AlignData()
'
' AlignData Macro
'

'
    Range("N2").Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Find(What:="CONT_ADV", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, -2).Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveCell.Range("A1:I1").Select
    Selection.Cut
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(0, 6).Range("A1").Select
    ActiveSheet.Paste
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

Thank you very much for looking into this, it is greatly appreciated.
Regards,

Please update your profile as necessary to properly reflect the exact version(s) of Excel your question relates to. Members tailor answers based on your Excel version.
ALSO
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.

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

Perhaps change

Selection.End(xlDown).Select

by

    Range("N2").Select
    Selection.End(xlDown).Select

Your code is hard to understand, what's it supposed to do?

It looks like you are just deleting the date in column I.
This code will find data in column N, then move over 5 cells and delete the cell, moving the rest of the row over.

Sub FixStuff()
    Dim Rws As Long, Rng As Range, c As Range
    Rws = Cells(Rows.Count, "A").End(xlUp).Row
    Set Rng = Range(Cells(2, "N"), Cells(Rws, "N")).SpecialCells(xlCellTypeConstants, 23)
    For Each c In Rng.Cells
        c.Offset(0, -5).Delete Shift:=xlToLeft
    Next c
End Sub