i = empty how can i solve this?

Question

Dim a As Integer
a = 0



For i = 4 To i + 1

    Set xRange = Sheets("sayfa4").Rows(i)

        For j = 1 To 10

            If Sheets("sayfa4")