How to copy and paste raw from 1 sheet to another sheet by vba in same workbook

[m_vishal_c]

hi I have 2 sheets in same workbook. i need vba code which copy data from 1 file to another file as raw for example

I have these data in Sheet 1
A B
[TABLE="width: 128"]
<colgroup><col width="64" span="2" style="width:48pt"> </colgroup><tbody>[TR]
[TD="class: xl65, width: 64"]Name[/TD]
[TD="class: xl65, width: 64, align: right"]1[/TD]
[/TR]
[TR]
[TD="class: xl65"]Address[/TD]
[TD="class: xl65, align: right"]2[/TD]
[/TR]
[TR]
[TD="class: xl65"]City[/TD]
[TD="class: xl65, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl65"]Company[/TD]
[TD="class: xl65, align: right"]4[/TD]
[/TR]
[TR]
[TD="class: xl65"]Salary[/TD]
[TD="class: xl65, align: right"]5[/TD]
[/TR]
</tbody>[/TABLE]

Sheet 2
[TABLE="width: 384"]
<colgroup><col width="64" span="6" style="width:48pt"> </colgroup><tbody>[TR]
[TD="class: xl66, width: 64"]Name[/TD]
[TD="class: xl66, width: 64"]Address[/TD]
[TD="class: xl66, width: 64"]City[/TD]
[TD="class: xl66, width: 64"]Company[/TD]
[TD="class: xl66, width: 64"]Salary[/TD]
[TD="class: xl66, width: 64"] [/TD]
[/TR]
[TR]
[TD="class: xl66"]1[/TD]
[TD="class: xl66"]2[/TD]
[TD="class: xl66"]3[/TD]
[TD="class: xl66"]4[/TD]
[TD="class: xl66"]5[/TD]
[TD="class: xl66"][/TD]
[/TR]
</tbody>[/TABLE]

when i press button on sheet 1 then data will be copy to sheet 2 in next raw

please guide me

heaps thanks in advance

thanks

 

[arunsjain]

Try this

https://www.mrexcel.com/forum/excel...cells-vertical-keep-formulas.html#post4973314

 

[m_vishal_c]

Try this

https://www.mrexcel.com/forum/excel...cells-vertical-keep-formulas.html#post4973314

HI Thanks for reply

but this is not solving my issue. as i mentioned i have 2 sheets . once i add some data in Sheet 1 and when i press button data will be copied and paste as horizontal in sheet 2 in next raw

 

[jolivanes]

Sub AAAAA()
Range("A2:B6").Copy
    Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Transpose:=True
End Sub

 

[jolivanes]

Have not heard if that is what you wanted or not.