populate last cell value inside shape based on matching another shape with sheet name

Sub Get_It()
    Dim ws As Worksheet
    Dim shp1 As Shape, shp2 As Shape
    Dim w As String
    Dim sht As Worksheet, rng As Range
    Set ws = Sheets("SOURCE")
    With ws
        Set shp1 = .Shapes("Rectangle 62")
        Set shp2 = .Shapes("Rectangle 55")
        w = shp1.TextFrame2.TextRange.Text
        With Sheets(w)
            Set rng = .Range("F" & .Cells(.Rows.Count, "F").End(xlUp).Row)
        End With
        shp2.TextFrame2.TextRange.Text = rng.Value
    End With
End Sub

Sub J3v16()
With Sheets("Source")
    .Shapes("Rectangle 55").TextFrame2.TextRange.Text = Sheets(.Shapes("Rectangle 62").TextFrame2.TextRange.Text).Range("F" & Rows.Count).End(xlUp)(1)
End With
End Sub