VBA: Input new data to another datatable.

[Xiangwu]

Hi, All,

I'm trying to edit a macro that allows me to copy data from "Input" sheet and send it to the "Data" sheet.

As for now, the code copies A3:A5 in "Input", and pastes to the empty rows. Now, I'd like to change the row count to column count as copying A3:D3 in "Input", and carrying them to the empty rows "A:D" in "Data. I'm still learning VBA, so I really dont know how to achieve so.

The code is:

Sub CopyData()

Dim lr As Long
Sheets("Data").Visible = True
lr = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Input").Range("A3:A5").COPY
Sheets("Data").Range("A" & lr + 1).PasteSpecial Paste:=xlPasteValues
Sheets("Input").Range("A6").Select

End Sub

Please share your ideas, and thank you guys so much.

 

[XLRATOR]

Try the Transpose Array Formula,
Look at its help topic for more info

Karim