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

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