[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Product[/TD]
[TD]Product code[/TD]
[TD]Product Description[/TD]
[TD]Quantity[/TD]
[TD]price each[/TD]
[TD]total price[/TD]
[/TR]
[TR]
[TD]a.product
dropdown[/TD]
[TD]a.code[/TD]
[TD]a.description[/TD]
[TD]1[/TD]
[TD]£3.99[/TD]
[TD]£3.99[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]vat[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]total[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Hi there,
I am looking to create a script, will copy and paste the first row of products, then paste that into the next blank row above vat. When that is pasted, I would like it to reset all cells to their original syntax, and reset the dropdown. I will then use "ActiveCell.Offset(1).EntireRow.Insert" to insert another blank row under this. I currently have the copy and paste script.
Sub Copyandpaste()
'
' Copyandpaste Macro
Range("$A$18:$F$18").Select
Selection.Copy
Range("A49").Select
ActiveSheet.Paste
End Sub
How would I do this?
Thanks in advance.
<tbody>[TR]
[TD]Product[/TD]
[TD]Product code[/TD]
[TD]Product Description[/TD]
[TD]Quantity[/TD]
[TD]price each[/TD]
[TD]total price[/TD]
[/TR]
[TR]
[TD]a.product
dropdown[/TD]
[TD]a.code[/TD]
[TD]a.description[/TD]
[TD]1[/TD]
[TD]£3.99[/TD]
[TD]£3.99[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]vat[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]total[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Hi there,
I am looking to create a script, will copy and paste the first row of products, then paste that into the next blank row above vat. When that is pasted, I would like it to reset all cells to their original syntax, and reset the dropdown. I will then use "ActiveCell.Offset(1).EntireRow.Insert" to insert another blank row under this. I currently have the copy and paste script.
Sub Copyandpaste()
'
' Copyandpaste Macro
Range("$A$18:$F$18").Select
Selection.Copy
Range("A49").Select
ActiveSheet.Paste
End Sub
How would I do this?
Thanks in advance.