Option Explicit
Public Sub test()
Dim avntSource() As Variant, avntTarget() As Variant
Dim ialngIndex As Long
avntSource = Range(Cells(3, 3), Cells(1000, 3)).Value
avntTarget = Range(Cells(3, 1), Cells(4000, 1)).Value
For ialngIndex = 1 To UBound(avntSource, 1)
avntTarget(1 + (ialngIndex - 1) * 4, 1) = avntSource(ialngIndex, 1)
Next
Range(Cells(3, 1), Cells(4000, 1)).Value = avntTarget()
End Sub