Increment row by 1

[cg080127]

Hi

I have just started learning vba & wondering if somebody can show me how to add a simple function to the code i have.
what i am looking to change is:

1. Instead of it pasting to row G just paste to the next row

2. When it pastes it leaves the selection of cells active so you have to click the formula bar

the code below is what i have so far:

Sub oldPrice()
Dim lastCurPrice As Long
lastCurPrice = Range("D1").End(xlDown).Row
Range("D2:D68" & lastCurPrice).Copy


If Not IsEmpty(Range("F2").Value) Then
Range("G2").PasteSpecial xlPasteValues

End If

Range("F2").PasteSpecial xlPasteValues


End Sub


Thanks in advance.

[ragulduy]

I'm not sure I understand what you mean but I think you want this:

Please Login or Register  to view this content.

[cg080127]

That worked perfect. Thank you!