Dim t
t = Range("a1:d" & Cells(Rows.Count, 1).End(3).Row)
[f1].Resize(UBound(t, 2), UBound(t, 1)) = Application.Transpose(t)
ou...... attention a CurrentRegion
Dim t
t = [a1].CurrentRegion
[f1].Resize(UBound(t, 2), UBound(t, 1)) = Application.Transpose(t)