Move chart on worksheet to variable location

[JohnZ1156]

I have a chart on my worksheet that I want to move to a location based on a variable.
I want to move the chart to column N at the row number in variable r.
So, kinda, cell Nr?

Sub MoveChart()
    Dim r As Integer

    Range("A1048576").End(xlUp).Select
    ActiveCell.Offset(-25, 0).Select
    Application.Goto ActiveCell, Scroll:=True
    r = ActiveCell.Row

    With ActiveSheet
    .ChartObjects(1).Top = .Range("n8129").Top
    .ChartObjects(1).Left = .Range("n8129").Left
    End With
    
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    
End Sub

 

[EXCEL MAX]

Maybe you can use something like this...

Sub MoveChart()

    Dim r As Integer

    Range("A1048576").End(xlUp).Select
    ActiveCell.Offset(-25, 0).Select
    Application.Goto ActiveCell, Scroll:=True
    r = ActiveCell.Row
    With ActiveSheet
        .ChartObjects("Chart 1").Chart.Parent.Cut
        .Range("N" & r).Activate
        .Paste
    End With
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
   
End Sub

 

[Fluff]

How about

    With ActiveSheet
    .ChartObjects(1).Top = .Range("n" & r).Top
    .ChartObjects(1).Left = .Range("n" & r).Left
    End With

 

[JohnZ1156]

Maybe you can use something like this...

Sub MoveChart()

    Dim r As Integer

    Range("A1048576").End(xlUp).Select
    ActiveCell.Offset(-25, 0).Select
    Application.Goto ActiveCell, Scroll:=True
    r = ActiveCell.Row
    With ActiveSheet
        .ChartObjects("Chart 1").Chart.Parent.Cut
        .Range("N" & r).Activate
        .Paste
    End With
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
  
End Sub

Thanks for your help.

 

[JohnZ1156]

How about

    With ActiveSheet
    .ChartObjects(1).Top = .Range("n" & r).Top
    .ChartObjects(1).Left = .Range("n" & r).Left
    End With

Thank you for your help.

 

[Fluff]

Glad we could help & thanks for the feedback.