Dim X as integer
For x = 1 To 80

, اضافة الكود

If cells(x, 1).value then
cells(x, 2).value = “5”