Erreur SUb ou fonction non definie

Bonjour à tous

Je suis débutante en Excel et je souhaiterais faire la chose suivante:
J´ai une feuille avec des tableaux et j aimerais recuperer une valeur pas tableau: Par exemple, initialement sur une feuille de calcul:

Tableau 1
Jacques 25 50
Martin 32 30
Francois 28 12

Tableau 2
Jacques 31 30
Martin 30 50
Francois 24 52

Et recupérer, sous forme dun tableau:
Tableau 1 25
Tableau 2 31

(La premiere valeur de Jacques)

Voilà le code que jai pour le moment :

Sub Trier_level4()
Dim MyMacro As Workbook
Dim Ws As Worksheet

Set Ws = Worksheet("Schnittgrößen")

Application.ScreenUpdating = False

    i = 1
    LastLine = Ws.Range("A" & Rows.Count).End(xlUp).Row
    NI = (LastLine - 1) / 12
    MsgBox NI
    
Dim tab_1()
ReDim tab_1(NI, 1)
    
    While IsEmpty(Ws.Cells(i, 7).Value) = False
     Wend
      v = i + 7 + 12 * (i - 1)
      p = v - 5
      MsgBox v
      tab_1(i - 1, 0) = Range("F" & p)
      tab_1(i - 1, 1) = Range("F" & v)
      i = i + 1

Application.ScreenUpdating = True
 Set MyMacro = Nothing
 Set Ws = Nothing
 
End Sub

L erreur me surligne la première ligne.

Pour mieux comprendre, les multiples de 12 sont dus au fait que mes tableaux sont grands de 12 lignes et les valeurs que je souhaite recuperer sont donc des lignes multiples de 12 presentes dans la colonne F.

J espere que ce sera comprehensible et que qqn pourra m aider.

Merci beaucoup !