Fonction LEFT en VBA

Bonjour, je souhaite pouvoir extraire les premiers caractères des cellules de la colonne A et les reporter dans les cellules de la colonne B

Voici mon code actuellement (qui ne fonctionne pas) :

Private Sub CommandButton4_Click()

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Not IsEmpty(Range("A" & i)) Then Range("B" & i) = Left(1, 10)

Next

End Sub

Je vous remercie !

Je viens de réussir finalement !
Au cas où le code pourrait intéresser quelqu'un :

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Not IsEmpty(Range("A" & i)) Then Range("B" & i) = Left(Cells(i, 1), 10)

J'extrais donc ici les 10 caractères de gauche de toutes les cellules de la colonne A non vides en reportant ces caractères dans les cellules de la colonne B vides

Bonne journée à tous