This code insert values in column a,b and d. I would like to start with
cell A2 instead of A1. Please help.

With wbDest.Sheets("Ark1")

For i = LBound(a) To UBound(a)
.Cells(i, "a") = a(i, 1): .Cells(i, "b") = a(i, 2): .Cells(i,
"d") = a(i, 3)
Next


End With