Macro to Cut Last Column with Data

[ExcelDean]

Hi! I’m a beginner trying to program a macro that will cut the last cell in a row with data present and paste it to a specific cell in that same row, before going to the next line and looping. I’ve run into all sorts of issues trying to record the macro and programming it myself. Some cells are empty before the final cell with data and the amount of columns changes from row to row but I always need to paste it to the same columns (in this case S & T). Please let me know if my description is unclear, any and all help is appreciated. Thanks!

 

[Norie]

Assuming your data starts in A1 try this.

Dim rw As Range
Dim cell As Range

    For Each rw in Range("A1").CurrentRegion
        Set cell = Cells(rw.Row, Columns.Count).End(xlToLeft)
        cell.Copy Cells(rw.Row, "S").Resize(,2)
   Next rw

 

[ExcelDean]

Assuming your data starts in A1 try this.

Dim rw As Range
Dim cell As Range

    For Each rw in Range("A1").CurrentRegion
        Set cell = Cells(rw.Row, Columns.Count).End(xlToLeft)
        cell.Copy Cells(rw.Row, "S").Resize(,2)
   Next rw

Hi, thanks so much for the quick reply. I could be doing something wrong (or missing a basic step) but when I run this Excel goes to not responding and the macro doesn’t complete. Thanks again!

 

[ExcelDean]

Assuming your data starts in A1 try this.

Dim rw As Range
Dim cell As Range

    For Each rw in Range("A1").CurrentRegion
        Set cell = Cells(rw.Row, Columns.Count).End(xlToLeft)
        cell.Copy Cells(rw.Row, "S").Resize(,2)
   Next rw

Hi Norie, I played around with this some more today and got it working. Sorry, this isn’t what I was looking for. I’m trying to make a macro that goes line by line to find the last column with data in each row (the amount of columns changes from row to row). After copying/cutting the last cell with data I need to paste it to the S and T columns before going to the next row and repeating the process. Thank you!

 

[ExcelDean]

Hi Norie, I played around with this some more today and got it working. Sorry, this isn’t what I was looking for. I’m trying to make a macro that goes line by line to find the last column with data in each row (the amount of columns changes from row to row). After copying/cutting the last cell with data I need to paste it to the S and T columns before going to the next row and repeating the process. Thank you!

Sorry, disregard that!! I went back to a previous macro that I made by accident.

The code you wrote works but doesn’t move to the next line. I’m going to play with it to see if I can get it there but if you have a simple solution that would be amazing!

 

[Norie]

Try this adjustment to the code I posted.

Dim rw As Range
Dim cell As Range

    For Each rw in Range("A1").CurrentRegion.Rows
        Set cell = Cells(rw.Row, Columns.Count).End(xlToLeft)
        cell.Copy Cells(rw.Row, "S").Resize(,2)
   Next rw

 

[ExcelDean]

Try this adjustment to the code I posted.

Dim rw As Range
Dim cell As Range

    For Each rw in Range("A1").CurrentRegion.Rows
        Set cell = Cells(rw.Row, Columns.Count).End(xlToLeft)
        cell.Copy Cells(rw.Row, "S").Resize(,2)
   Next rw

Perfect, thank you so much!