VBA for non blank cells

[ral_ap]

Hello. I have two sheets: sheet 1 -"stocks" and the other, 2- "template". I want to determine each non blank value (from column F with multiple rows) from sheet 1 and to put it in sheet number 2 (in cell A9 - till A+). Each non blank value must fill sheet number 2 "template" one by one, on the following empty row

example:
sheet 1 "stocks" - column F
1
(blank)
5
3
7
8
(blank)
4
5

Sheet 2 "template" (how it should look like)
1 (A9 - cell position)
5 (A10)
3 (A11)
7 (A12)
8 (A13)
4 (A14)
5 (A15)


Can anyone help me?
I have started with ----
If Not IsEmpty(Range("F"&i).Value) Then

End if

but i am blocked at putting the values one by one on the next row at sheet "template"
Thank you for your time

 

[maabadi]

Welcome to MrExcel Message Board.
Please Upload your example file & Desired Results with XL2BB Addin (Preferable) or upload at free hosting site e.g. www.dropbox.com, GoogleDrive or OneDrive and Insert link here.

 

[ral_ap]

unfortunately i am limited at this computer in using certain programs, so i inserted images in order to make myself clearer..
hope it is ok

---sheet 1

--- resulting sheet 2

 

[maabadi]

Try this Method:
1. Select all Values and Blank cells at column F
2. Press F5 key on KeyBoard
3. Select Special
4. Select Constants
5. Press OK.
6. Press CTRL+C on Keyboard for Copy
7. Go to destination sheet , AND elect Cell A9
8. Press CTRL+V on Keyboard

AND VBA

Dim Lr as Long
Lr = Sheets("Stocks").Range("F" & Rows.Count).End(xlup).row
Sheets("Stocks").Range("F2:F" & Lr).SpecialCells(xlCellTypeConstants, 23).Copy  Sheets("Template").Range("A9")

 

[ral_ap]

i started creating a VBA formula but i got stuck
Thank you for your response

 

[maabadi]

I modify post check it.

 

[ral_ap]

uh . something's not working. the merged cells from the drawing is a problem. i'll return when i can understand what the problem is. Thank you