Excel Table, move rows up

[wizmaster]

Hi All

I found this code on this forum. It will essentially use vba to move row of data to the line above. This moves the full row of data, how do I modify this so it only moves a row of data in a table to the line above? Also can this work irrespective of hidden Columns or auto filter selection ?


Sub ShiftUp()
With Selection.EntireRow
.Cut
.Offset(-1).Insert
.Select
End With
End Sub

 

[Alex Blakenburg]

Ok for the move down give this a try:

    lo.ListRows(idxRow).Range.Resize(cntRow).Cut
    lo.ListRows(idxRow).Range.Offset(cntRow + iInput).Insert Shift:=xlDown

 

[wizmaster]

This works great. Thank you for all of your help !!!!!

 

[Alex Blakenburg]

You're welcome. Glad I could help.