Dim rng as Range, rng1 as Range
set rng = Columns(1).specialCells(xlconstants)

set rng1 = rng.Areas(1).End(xldown)(0)
Range(rng.Areas(1),rng1).Resize(,2).copy Worksheets("Sheet2").Range("A1")

--
Regards,
Tom Ogilvy


"Foppas" wrote:

Hi, can someone please help me with a function or a macro that can look
for a value "V65-1" and copy everything until another value
"V65-2"-1 row from sheet1 to sheet2
Hope that you smart people understand my question.

Thanks/
Oscar

Tried to attach my excel-sheet but it seems like I can't, so I hope
this will help!

V65-1

1 LA CHAAYA'S FANNY s6
2 SÄVAFLICKAN s9
3 SPOON HORNLINE s5
4 POLS VALBORG s7
5 ARCTIC ICE* (DE) s7
6 KICKAN SILVIO s8
7 REBECKA s7
8 ELI SEA s8

V65-2

1 OLIVER HACKSTABLE v5
2 ORSO h4
3 KAIN ZET v4
4 BUMBLEBEE MEJL s6
5 REGISSEUR (NO) h4
6 ELECTRIC RUNNER h4
7 LUCKY BLEAU v6
8 ELI ENTRPRISE s4
9 HUGG LLOYD v6
10 MADERRIFIC (US) s4
11 KASINO (DK) h4
12 PURPLE SEA (DE) h8