Dim a As Integer Dim i As Long, j As Long Dim xRange As Range a = 0 For i = 1 To 10 Set xRange = Sheets("sayfa4").Rows(i) For j = 1 To 10