Can't link Shapes to Variable cell references

New data is added each week to the next free row in Cols J - N of the Production worksheet.
Need Macro to "copy and paste" the latest date and four values to the five Shapes in the Summary worksheet.

At the moment it generates an "Error Code 91":

Option Explicit
Dim f As Long
Dim shp As Shape, shapes As Shape
Dim wsS As Worksheet, wsG As Worksheet

Sub RESET_GRAPHS()

'Find last row on source sheet

    Set wsS = Sheet1
    Set wsG = Sheet2
    
    With wsS
    
    f = .Cells(.Rows.Count, "A").End(xlUp).Row
    If f < 4 Then f = 4
    
    End With
    
    With wsG

'THROWS RUNTIME ERROR 91:

    shapes.Range(Array("Rectangle_Rounded_Corners_4")) = wsS.Range("A" & f)
    shapes.Range(Array("Rectangle_Rounded_Corners_3")) = wsS.Range("K" & f)
    shapes.Range(Array("Rectangle_Rounded_Corners_5")) = wsS.Range("L" & f)
    shapes.Range(Array("Rectangle_Rounded_Corners_6")) = wsS.Range("M" & f)
    shapes.Range(Array("Rectangle_Rounded_Corners_7")) = wsS.Range("N" & f)
       

    End With
    
End Sub

All solutions, suggestions and alternatives welcome as ever.

Ochimus