How do I cut and paste data from last row on excel sheet, then loop?

[kcheeser]

I have an excel worksheet that has data in columns BA:CX. I want VBA to cut the data from the last row in the worksheet BA:CX and paste the data in the row below it's current location starting with column C:AY. I want to repeat the process for the next row up, etc. all the way until I get to BA:CX in row 2.

 

[Momentman]

Do you mean say cut BA:CX on row 45 and paste in C:AY on row 46 and repeat same for BA:CX on row 44 and paste in C:AY on 45 and so on

Only challenge is that BA:CX and C:AY are not same size, so what am I missing?

 

[kcheeser]

Sorry, cut from BA:CY, paste in B:AZ . Plus the data is every other line. So if row 45 is the last row of data, cut BA45:CY45. Paste B46:AZ46. Then move to row 43. Cut BA43:CX43, paste in B44:AZ44. The last row of data will vary, so I need the code to find the last row.

 

[Momentman]

Something like this

Sub cutpaste()
    lastrow = Range("BA" & Rows.Count).End(xlUp).Row
    
    For I = lastrow To 1 Step -2
        Range("BA" & I & ":" & "CZ" & I).Cut Range("A" & I + 1 & ":" & "AZ" & I + 1)
    Next I
End Sub

 

[kcheeser]

Great. Thanks momentman.