يمكنك استعمال هذا الاجراء
Sub merge2cols()
rng1Count = Cells(Rows.Count, "B").End(xlUp).Row - 6
rng2Count = Cells(Rows.Count, "C").End(xlUp).Row - 6
lr = Cells(Rows.Count, "E").End(xlUp).Row + 1
Range("E" & lr & ":E" & rng1Count + lr - 1).Value = Range("B7:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value
lr = Cells(Rows.Count, "E").End(xlUp).Row + 1
Range("E" & lr & ":E" & rng2Count + lr - 1).Value = Range("C7:C" & Cells(Rows.Count, "C").End(xlUp).Row).Value
End Sub
بالتوفيق
نقل عمودين في عمود.xlsb