try this to copy f8:f8 transposed to the next availalble row
Sub transposecolumntorows()
dim nar as long
with sheets("sheet2")
nar = .Cells(Rows.Count, 1).End(xlUp).Row + 1
sheets("sheet1").range("f5:f8").copy
..Cells(nar, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
end with
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"deemo85" wrote in message
...
Hi!

I would like to create an entry form, where the user inputs data into
cells
in a column format, lets say from F5 to F8 in sheet1, and then these get
copied to sheet2 into a row format from lets say A1 to D1 respectively.
So
where F5 gets copied to A1 then F6 to B1 etc etc. And then the next time
I
enter data in sheet1 and run the macro I want the data to fill the next
row
in sheet2, for example, from F5 to A2, F6 to B2 etc etc

THANK YOU!