Need help coding vba in Excel: copying from one sheet to another

To get your while loops to work:

sub copy_input_to_output
dim countinput, countoutput as integer
countinput = 1
countoutput = 1
do while not Sheets("Input").Range("A" & countinput) = ""
    Sheets("Output").Range("A" & countoutput) = Sheets("Input").Range("A" & countinput)
    countinput = countinput + 1
    countoutput = countoutput + 1
loop
countinput = 1
do while not Sheets("Input").Range("B" & countinput) = ""
    Sheets("Output").Range("A" & countoutput) = Sheets("Input").Range("A" & countinput)
    countinput = countinput + 1
    countoutput = countoutput + 1
loop
countinput = 1
do while not Sheets("Input").Range("C" & countinput) = ""
    Sheets("Output").Range("A" & countoutput) = Sheets("Input").Range("A" & countinput)
    countinput = countinput + 1
    countoutput = countoutput + 1
loop
countinput = 1
do while not Sheets("Input").Range("D" & countinput) = ""
    Sheets("Output").Range("A" & countoutput) = Sheets("Input").Range("A" & countinput)
    countinput = countinput + 1
    countoutput = countoutput + 1
loop
end sub

You could do it with copy and paste like this:

sub copy_input_to_output
Sheets("Input").Range("A1:A" & Sheets("Input").Range("A1").end(xlDown).row).copy Sheets("Output").Range("A1")
Sheets("Input").Range("B1:B" & Sheets("Input").Range("B1").end(xlDown).row).copy Sheets("Output").Range("A" & Sheets("Output").Range("A65536").end(xlUp).row + 1)
Sheets("Input").Range("C1:C" & Sheets("Input").Range("C1").end(xlDown).row).copy Sheets("Output").Range("A" & Sheets("Output").Range("A65536").end(xlUp).row + 1)
Sheets("Input").Range("D1:D" & Sheets("Input").Range("D1").end(xlDown).row).copy Sheets("Output").Range("A" & Sheets("Output").Range("A65536").end(xlUp).row + 1)
end sub

It just copies the first column... :/

Thank youuuuu so much yudlugar for your attention
I'll try it right away!

Oops, try this one instead.

Apologies Arlu, I'd missed that rule...

sub copy_input_to_output
dim countinput, countoutput as integer
countinput = 1
countoutput = 1
do while not Sheets("Input").Range("A" & countinput) = ""
    Sheets("Output").Range("A" & countoutput) = Sheets("Input").Range("A" & countinput)
    countinput = countinput + 1
    countoutput = countoutput + 1
loop
countinput = 1
do while not Sheets("Input").Range("B" & countinput) = ""
    Sheets("Output").Range("A" & countoutput) = Sheets("Input").Range("B" & countinput)
    countinput = countinput + 1
    countoutput = countoutput + 1
loop
countinput = 1
do while not Sheets("Input").Range("C" & countinput) = ""
    Sheets("Output").Range("A" & countoutput) = Sheets("Input").Range("C" & countinput)
    countinput = countinput + 1
    countoutput = countoutput + 1
loop
countinput = 1
do while not Sheets("Input").Range("D" & countinput) = ""
    Sheets("Output").Range("A" & countoutput) = Sheets("Input").Range("D" & countinput)
    countinput = countinput + 1
    countoutput = countoutput + 1
loop
end sub

Thank you once again for your time and patience!!
This one only copies the 2nd column :/

I've checked it and it works ok for me - can you upload a sample with an example of how you want the result to look in the output folder?

It works now, I was trying it the wrong way!
Thank you so much for your time
I really apreciated it!