Macro to Move Data

[howard]

I have data in Cols A to W from row 13 onwards (row 13 can sometimes be blank) on sheet PLAccounts

I need macro to move the data below A13 where there are blank rows and then data below the blank rows to the first row from A13 where there is no data

I tried to write code to do this, but cannot get it to works

 Sub MoveData()
    Dim lastRow As Long
    Dim i As Long
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("PLAccounts")
    
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    If lastRow > 13 Then
        For i = 23 To 1 Step -1 ' loop through columns W to A
            If i <> 13 Then ' skip column M
                ws.Range(ws.Cells(14, i), ws.Cells(lastRow, i)).Cut Destination:=ws.Cells(13, i)
            End If
        Next i
    End If
End Sub

 

[johnnyL]

I am confused what you are asking for so perhaps a before & after XL2BB example might be in order to show what your data looks like to start with and what it should look like afterwards.

It sounds like you want to remove the blank rows in the data between A13 & the start of your data below that, but you didn't say that.

 

[howard]

Thanks for the reply

See Link beforev Running Macro

Macro to Move Data to A13 where thhee is no Data in A13 Before Running Maro.xlsm

Shared with Dropbox

www.dropbox.com

See Link Where I moved the Data Manually

Move Data to A13 Result after Moving.xlsm

Shared with Dropbox

www.dropbox.com