Move Data from below Current cell

[Crocdundee]

Hi Guys, hope you are all keeping well..
Yes I would appreciate help here
My cursor is sitting somewhere in Col G
I would like vba code to select and move data from below the current cell in G col using data only in A:F Columns UP one row
In other words Copy All data below current active cell in G column up 1 row and then delete bottom entire row

Hope you can help me here and it will be appreciated
Graham

 

[Yongle]

Try this
It uses last value in column A to determine last used row

Sub MoveUp()
    ActiveCell.Offset(, -6).Resize(, 6).Delete Shift:=xlUp
    ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1).EntireRow.Delete
End Sub

 

[Crocdundee]

Yongle, thank you very much, this works perfectly and will save me heaps of time,and more importantly I learnt something new
Regards Graham

 

[Yongle]

thanks for your feedback