Maybe

Lastrow = Cells(Rows.Count, "EQ").End(xlUp).Row
Range("EQ10:EQ" & Lastrow).Copy
Range("EX10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

"leerem" wrote:

I'm trying to ensure I dont undully copy empty cells. I have several hundred
Vehicals arriving per week, at present I'm allowing 1700 lines per week for
these vehicles. however over the week I may only receive 1400. When working
with a 5 week period the calculations can take forever. How can I only copy
the values of the actual entries.
My simple code:

Range("EQ10:EQ10000").Select
Selection.Copy
Range("EX10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

The caluculation can then be alligned to this:

Regards