Range ile ilgili

[Acolak]

Selamlar ihtiyacım olan konuyla ilgili yardım arıyordum sanırım ilgili bir makro buldum.
Ancak; makro tam ihtiyacım olan değil.
xrrt bir konuda böyle bir makro vermiş

Bu makroda sadece A1 hücresi A2 ye ekleniyor
Benim istediğim A1 den G1 e kadar olan hücrelerin
A2 den G2 ye kadar eklenmesi

Şimdiden teşekkürler

Sub Matrah()
Sheets("Sayfa1").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = ActiveCell.Value + Sheets("Sayfa1").Range("a1").Value

End Sub

 

[zafer]

Merhaba

Sub ekle()
For Y = 1 To 7
Cells(2, Y) = Cells(2, Y) + Cells(1, Y)
Next

End Sub

 

[Acolak]

çok teşekkür ederim