Change from writing in horizontal to vertical

[Sjon1974]

All,

I have a code that writes to a certain worksheet that we use for data analyzing in click. But now we want to see it as a simple worksheet per customer.
Now my VBA scripting is basic, how can i change the following code from writing in rows to columns.

Set wsAE = Worksheets("Sheet5")
If MsgBox("Entrada correcta?", vbYesNo + vbQuestion, "Verificar los datos!") = vbNo Then Exit Sub
iRow = wsAE.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
wsAE.Cells(iRow, 1).Resize(, 19).Value = Array(CMBCLIENT.Value, CMBPRESTADORA.Value, CMBDESPERSIONES.Value, CMBCONCEPTO.Value, CMBCOMISON.Value, cmbcosto.Value, CMBTIPO.Value, _
CMBEMPRESA.Value, CMBIVA.Value, TXTIMPORTE.Value, TXTFECHA.Value, TXTSUMCOM.Value, TXTSUBTOTAL.Value, TXTSUMIVA.Value, TXTSUMFACT.Value, TXTPAGOCLIENTE.Value, TXTREMANTE

 

[Sjon1974]

I wanted to edit my post but i cannot find that button.

I was trying this, but what i am missing is where to put the active cell (correct??)

With CMBCLIENT.Value = "AOM"
Set wsAE = Worksheets("AOM")
Column = wsAE.Cells.Find(What:="*", SearchOrder:=xlColumn, SearchDirection:=xlPrevious, LookIn:=xlValues).Column + 1
End With