VBA help

[Donai]

Hi, i need a VBA code that will copy the header row under data set, so in the below example the header row will be copied to row 12

Excel Workbook
	A	B	C	D	E	F	G	H	I
5	Client Code	Debt >60days	Send Letter?	P.Arrangement	Ring	No Action	Passive(60 days)	Aggressive (3rd time)	Legal
6	Test1	6,271.00
7	Test2	1,210.00
8	Test3	1,600.00
9	Test4	110.00
10	Test5	2,340.00
11	Test6	1,760.00
Sheet1

 

[Smitty]

See if this gets you started:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        i = Cells(Rows.Count, "A").End(xlUp).Row<br>            Range("A1:I1").Copy Cells(i, "A")<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[Donai]

See if this gets you started:

Sub foo()
Dim i As Long
i = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:I1").Copy Cells(i, "A")
End Sub

HTH,

The code seems to remove Test 6 row and copies the data to that row, i need the header row to go underneath that the last data row

 

[Donai]

By adding +1 it works. Thanks


Sub foo()
Dim i As Long
i = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A5:I5").Copy Cells(i, "A")
End Sub