A sütunundaki boş satırlara B sütunundaki veriyi sırasıyla yerleştirmek

[endemikplant78]

Arkadaşlar merhaba. Bir konuda yardımınıza ihtiyacım var. Ekteki dosyada A sütununda boş satırlar var. B1 den başlayarak sırasıyla B1---A2, B2---A3 şeklinde olacak şekilde yerleştirmem lazım. Yaklaşık 15 bin tane veri var. Şimdiden teşekkür ederim

 

[çıtır]

Deneyiniz.

Sub araya()
Dim s1 As Worksheet: Dim Rng As Range: Dim sat As Integer
Set s1 = Sheets("Sheet2")
son = s1.Cells(65355, "A").End(3).Row
sat = 1
For Each Rng In s1.Range("A1:A" & son)
If Rng = "" Then
Rng = s1.Range("B" & sat)
sat = sat + 1
End If
Next
End Sub

 

[endemikplant78]

Cevabınız için çok teşekkür ederim. Ancak ben bu alana çok uzağım bu işlemi ilk defa yapacağım. Nasıl ve nereye bu kodun girilmesi noktasında biraz daha yardımcı olursanız çok sevinirim

 

[endemikplant78]

Sayenizde yaptım. Çok teşekkür ederim. Allah razı olsun

 

[çıtır]

Sayenizde yaptım. Çok teşekkür ederim. Allah razı olsun

Allah(C.C.) Cümlemizden razı olsun.Dönüş yaptığınız için teşekkür ederim.