Worksheets("Sheet1").Range("B1").Copy Destination:= _
Worksheets("Sheet2").Range("A65536").End(xlUp).Off set(6)


--
HTH

Bob Phillips

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Sean" wrote in message
ups.com...
One Q Richard if my Copy and Paste are on different sheets how would I
incorporate that into

Range("B1").Copy Destination:=Range("A65536").End(xlUp).Offset(6)


On Feb 7, 8:58 am, "RichardSchollar"
wrote:
Hi Sean

Possibly

Sub DeleteRows()
For i = 40 to 8 Step -1
Select Case Cells(i,1).Value
Case "London","New York","Paris","Berlin"
Case Else
Rows(i).Delete
End Select
Next i
End Sub

and for the next bit:

Range("B1").Copy Destination:=Range("A65536").End(xlUp).Offset(6)

Hope this helps!

Richard

On 7 Feb, 08:08, "Sean" wrote:



What code could I use to Delete an entire row (move cells up) if the
value in A8:A40 is not London; New York, Paris or Berlin?

Secondly, how do I achieve a simple Copy Paste, but always 6 rows
below the last populates cell in Column A? My problem is my data
changes but I always wish to paste 6 rows below the last data.

Thanks- Hide quoted text -

- Show quoted text -