Another question relat4ed to this topic.

I need to skip any blank cells. I am using the same method to paste a
multiplication formula in another column.

This is what I have:
Cells(2, 15).FormulaR1C1 = "=RC[-2] * RC[-1]"
Cells(2, 15).Copy Destination:=Range(Cells(3, 15), _
Cells(lnglastrow, 15))

How can I make it skip the blank cells?

"petedacook" wrote:

I have some code that a user has been running which plugs a vlookup formula
into the spreadsheet:

'Do While IsEmpty(Cells(I + 1, 1)) = False
' I = I + 1
' Cells(I + 1, 11).Select
' ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],price,4,FALSE)"
' ActiveCell.Offset(1, 0).Select


Loop

This takes too long to run.....so I want to use code to perform the lookup
and plug the result into the active cell.

This code is running through several thousand rows...more than 2,000 and
less than 10K, but the number of rows varies from week to week.

My question: Is there a faster way to preform the lookup and plug the reult
into the active cell other than using the application function method:

Application.WorksheetFunction.Vlookup()


Is this the best method to perform a vlookup?