malleshg24, I tried your code and got an error Method range of object '_Worksheet' failed, which is due to unqualified references to Cells.
This doesn't error:
Arr = Split(Join(Application.Transpose(Sheet1.Range("A2", Sheet1.Cells(Rows.Count, "A").End(xlUp))), Chr(1)) & Chr(1) & _
Join(Application.Transpose(Sheet2.Range("C2", Sheet2.Cells(Rows.Count, "C").End(xlUp))), Chr(1)) & Chr(1) & _
Join(Application.Transpose(Sheet3.Range("E2", Sheet3.Cells(Rows.Count, "E").End(xlUp))), Chr(1)), Chr(1))
You can shorten the line with:
Arr = Split(Application.TextJoin(Chr(1), False, _
Sheet1.Range("A2", Sheet1.Cells(Rows.Count, "A").End(xlUp)), _
Sheet2.Range("C2", Sheet2.Cells(Rows.Count, "C").End(xlUp)), _
Sheet3.Range("E2", Sheet3.Cells(Rows.Count, "E").End(xlUp))), Chr(1))
with the added bonus of ignoring blank cells by changing False to True.