Problem with Loop

[Guest]

I have the following code so far:
row1 = 2

Do Until Sheets("OLE1").Range("L" & row1).Value = Empty
If Trim(Sheets("OLE1").Range("M" & row1).Value) <> "" Then

Sheets("OLE1").Range("K" & row1).Copy
Sheets("OLE1").Range("K" & row1 + 1).PasteSpecial Paste:=xlPasteValues
'' Sheets("OLE1").Range("K" & row1 + 1).Select

End If
row1 = row1 + 1
Sheets("OLE1").Range("K" & row1 + 1).Select
Loop
End Sub


Example of my data:

K L M
1 1280.98 SB014
2 20522.19 SB014
3 11401.21 SB014
4 12365.00 SB014 1.10000
5 1594.00 SB014 1.10000
6 665.00 SB014 7.75375
7 154.00 SB014 7.75375

Is it possible to copy K4 to K5 and then the code move to K6 and copy K6 to
K7?

Cheers!

 

[Jerry K]

It appears to me that the DO statement checks the cell you just copied into.
Are you seeing the value in K2 copied into K3, K4, ... and a LONG way down?

If you are trying to copy even numbered rows (2, 4, 6) to the odd numbered
row below them (3, 5, 7 respectively), you probably want to increment your
row1 index by 2 instead of 1 (row1 = row1 + 2).
Jerry K

 

[Guest]

It will not always be the case that I will be copying even to odd.
As soon as data is found in column M 'then' I want copy to the cell below
(due it being a pair - same exchange rate) and only when it has carried out
this action, I would then like it to move down two rows.
So as long as there is nothing in column M I just need it to move down one
row.
In the example below nothing needs to happen in rows 1,2,3
K4 would then be copied to K5 and K6 copied to K7