وعليكم السلام أخي الكريم
من فضلك ارفق ملف إكسيل موضحاً التفاصيل للمشكلة وإن شاء الله تجد الجل

السلام عليكم
أخي الكريم ياسر لقد ضفت ملف اكسل مرفق يرجى الاطلاع. مع الشكر والتقدير. 

السلام عليكم 
الملف المرفق كيفية الحصول على النتيجة بأببسط عمليه. وشكراً 

وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله

Sub Test()
    Const COLTARGET As Long = 4, LASTROW As Long = 2320
    Application.ScreenUpdating = False
        With ActiveSheet
            With .Columns(1)
                .Copy .Offset(, COLTARGET - 1)
            End With
            With .Range(.Cells(1, COLTARGET), .Cells(LASTROW, COLTARGET))
                .Range("A1").Value = "Result"
                .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
                .Value = .Value
            End With
        End With
    Application.ScreenUpdating = True
End Sub

الرقم 4 في أول سطر يشير لرقم العمود المطلوب وضع النتائج فيه أي العمود D (قم بتغيير الرقم للعمود الذي ترغبه)

شكراً لك أخي الكريم ياسر 

الحمد لله الذي بنعمته تتم الصالحات