is there a vba script that can solve creating a copy loop

Question

in this code every value is copied from a column and the 3 blank rows are added from below. I want to fill in this code so that the value that enters the 1st row is copied e