Son Satırdan Yapıştırma

Sayın @ceterisdenge .

İsteğiniz zor görünmüyor ama az sayıda verinin olduğu bir örnek belge yükleyip,
olması gerekeni elle yazarak örneklendirirseniz iyi olur.

Verdiğiniz kod satırlarından anladığım, bu satırlar bir döngünün içerisinde.
İsteğiniz, bir veri listesinde (bu listenin nasıl sıralanmış olduğu önemli),
uzunluğu 1 olanlar listelenip, ardından 2 olanlar ve ardından da 3 olanlar şeklinde listelemekse;
ve en önemlisi de bu işlemi mevcut kodların içerisinde gerçekleştirmekse, hem örnek belgenin (verilerin durumu)
hem de kodların bütününün görülmesinde yarar var.

Kodların bütününü görmediğimize göre şöyle bir öneride bulunayım.
Verdiğiniz kod'da, eşitliğin solundaki kısım verinin yazılacağı hücre olduğuna göre;
bu kısımdaki satır numarası olan x yerine, s1.Cells(Rows.Count, 28).End(3).Row+1 yazılması lazım gibi görünüyor.

.