Hej Gino

Du behöver egentligen inte copy metoden för en rak överföring av värden.

Sheets("Export").Range("E" & Rows.Count).End(xlUp).Offset(1)  = Sheets("Sheet1").Cells(i, "K")

Hade fungerat lika bra, om det inte vore för .cells som kräver siffror och alltså inte gillar "K". Sedan så är det egentligen bättre att skriva hela området i ett svep istället för att iterera rad för rad. Men om det inte rör sig om väldigt många rader, så funkar detta ganska bra ändå, annars tar det på tok för lång tid.

Sheets("Export").Range("E" & Rows.Count).End(xlUp).Offset(1)  = Sheets("Sheet1").Cells(i, 11)

Borde stämma om jag kan räkna på fingrarna :). 

Mvh

Christian