tek satırda yazılabilinir mi?

[selimmanav]

ThisWorkbook.Worksheets("talepler").Range("A1").Value = "proje no"
ThisWorkbook.Worksheets("talepler").Range("b1").Value = "talep no"
ThisWorkbook.Worksheets("talepler").Range("c1").Value = "talep tarihi"
ThisWorkbook.Worksheets("talepler").Range("d1").Value = "türü"
ThisWorkbook.Worksheets("talepler").Range("e1").Value = "son. tar."
ThisWorkbook.Worksheets("talepler").Range("f1").Value = "tesisat no"
ThisWorkbook.Worksheets("talepler").Range("g1").Value = "sözleşme no"
ThisWorkbook.Worksheets("talepler").Range("h1").Value = "sözleşme tarihi"
ThisWorkbook.Worksheets("talepler").Range("ı1").Value = "adı soyadı"
ThisWorkbook.Worksheets("talepler").Range("j1").Value = "adresi"
ThisWorkbook.Worksheets("talepler").Range("k1").Value = "durum"
ThisWorkbook.Worksheets("talepler").Range("l1").Value = "talep güç"
ThisWorkbook.Worksheets("talepler").Range("m1").Value = "sayaç marka ve no"
ThisWorkbook.Worksheets("talepler").Range("n1").Value = "bağlantı antlaşma tarihi"
ThisWorkbook.Worksheets("talepler").Range("o1").Value = "tesisatcı"



yukarıdaki satırlar tek satırda yazılabilir mi?

 

[Orion1]

En kısa bu şekilde aklıma geldi.

Sub teksatir59()
Dim myarr(), i As Integer
myarr = Array("", "proje no", "talep no", "talep tarihi", "türü", "son.tar.", "tesisat no", _
    "sözleşme no", "sözleşme tarihi", "adı soyaddı", "adresi", "durum", "talep güç", _
    "sayaç marka no", "bağlantı antlaşma tarihi", "tesisatcı")
For i = 1 To UBound(myarr)
    Cells(1, i).Value = myarr(i)
Next i
  
End Sub