Macro to move a shape to the last used row +5

[tonywatsonhelp]

Hi Everyone,
I have a arrow on every page at the bottom that lets the user goto the next tab,
The arrow is called "Next1"

All I need is a macro that when run moves "Next1" it to the Last row +5 and puts it in column AX
the problem i'm having is last row could be any column and not all rows have data in them.

please help if you can

Thanks

Tony

 

[Fluff]

How about

Sub tonywatson()
   Dim UsdRws As Long
   
   UsdRws = Cells.Find("*", , , , xlByRows, xlPrevious, , , False).Row
   With ActiveSheet.Shapes("Next1")
      .Top = Rows(UsdRws + 5).Top
      .Left = Columns("AX").Left
   End With
End Sub