<pre style="overflow-wrap: break-word; white-space: pre-wrap;">
Private Sub CommandButton5_Click()

Dim lr As Long:         lr = Sheets(&quot;قائمة&quot;).Cells(Rows.Count, 2).End(xlUp).Row
 Range(&quot;lr + 1&quot;).Select
End Sub</pre>