3-4 kolon bilgilerini, 1-2 kolona taşımak, tarama yaparak...

[yst10]

Selamlar, iyi Pazarlar.
Sorunum ekli dosyada, yardımcı olacak herkese şimdiden teşekkürler.
Yavuz Tümer

 

[veyselemre]

Sub dene()
    For x = [ar65536].End(3).Row To 3 Step -1
        If Cells(x, "ar") <> "" Then
            Cells(x, "ar").Offset(1, -4).Resize(, 4).Insert Shift:=xlDown
            Range(Cells(x, "ar"), Cells(x, "as")).Cut Cells(x + 1, "ap")
        End If
    Next
End Sub

 

[yst10]

Sn. Veyselemre,
Teşekkürler, hem kod için, hem de imza için.
Sevgilerimle...
Yavuz Tümer