Out Of Memory hatası alıyorum

[Kekoli]

Merhaba,
İlk satırda birleştirilmiş olan A1 B1 C1 Hücrelerini ayırıp, ayrılan hücrelerde A1'de olan değeri B1 ve C1'ye yapıştırmaya çalışıyorum, ama Out Of Memory hatası alıyorum neden olabilir?

Sub ilksatiriayir()


'ilk satırdaki birleştirilmiş hücreleri ayırır.
Range("D1:ZZ1").Select
Selection.UnMerge
'ilk satırdaki birleştirilmiş hücreleri ayırır.

Dim i As Integer
For i = 5 To 20
For k = 4 To 20 Step 2

If Cells.Value = "" Then
Cells(1, i).Value = Cells(1, k)


End If

Next k
Next i

End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodlarla yapabilirsiniz.

Sub ilksatiriayir()

range("a1:c1").UnMerge
range("b1")=range("a1")
range("c1")=range("a1")
end sub