Diziler ve resize komutu

[hsayar]

Aşağıdaki kodlar ile başlıkları 1. satıra yazabiliyorum fakat bunu resize komutu ile yapmak istyorum bu sefer Runtime error 1004 Application defined or object defined error hatası alıyorum öneriniz nedir?

Sub Resize_ve_Array()
Dim arr() As Variant
Dim csf As Worksheet: Set csf = ThisWorkbook.Worksheets("sayfa1")
arr = Array("Sayac_No", "Adi_Soyadi", "Mevkii")
  With csf
    .Cells.Clear
    [COLOR=Green].Range(.Cells(1, 1), .Cells(1, 3)).Value = arr[/COLOR]
    Stop
[COLOR=Red]    '.Cells(2, 1).Resize(0, UBound(arr) + 1).Value = arr
    '.[a2].Resize(0, UBound(arr) + 1).Value = arr[/COLOR]
  End With
Erase arr
End Sub

 

[Haluk]

.Cells(2, 1).Resize(1, UBound(arr) + 1).Value = arr

 

[hsayar]

teşekkür ederim hocam ben aynı satırda olduğunu anlatmak için offsetteki gibi 0 kullandım ama resize da 1 ve daha büyük kullanılıyormuş.