copy and paste a range of cells to the left

**michaelram** · 06-03-2010, 09:17 PM

Hi all, I am new to writing up code in VBA. i am trying to copy cells on a range and paste them to the left into colums A to D. the maro runs but it get rid every second existing raw. This is what I am doing (see the picture), and the code is:

Sub CopyPaste()

Dim I As Long, LastLine As Long
Dim R As Integer

Sheets(2).Activate
LastLine = Cells(Rows.Count, "A").End(xlUp).Row

R = 0
For I = R + 2 To LastLine
Sheets(2).Range("G" & I & ":J" & I).Copy
Range("A" & I & ":D" & I).PasteSpecial
R = R + 2
Next

MsgBox "Done"
End Sub

I would appreciate if someone can can point me in the right direction, thanks heaos!

**Dulanic** · 06-03-2010, 09:40 PM

Hello and welcome to the forums. Please review the forum rules and place code tags around your code.

3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # button at the top of the post window. If you are editing an existing post, press Go Advanced to see the # button. For more information about these and other tags, click here.

**michaelram** · 06-03-2010, 10:14 PM

Please Login or Register  to view this content.

**michaelram** · 06-04-2010, 12:24 AM

[QUOTE=michaelram;2318800][CODE]
Sub CopyPaste()

Dim I As Long, LastLine As Long
Dim R As Integer

Sheets(2).Activate
LastLine = Cells(Rows.Count, "A").End(xlUp).Row

R = 0
For I = R + 2 To LastLine
Sheets(2).Range("G" & I & ":J" & I).Copy
Range("A" & I & ":D" & I).PasteSpecial
R = R + 2
Next

MsgBox "Done"
End Sub

I got rid of the R=R + 2
and added at the end of For I = R + 2 To LastLine step 2
This seams to work but there is one little problem, there are some cell that end up highlighted. How can I eliminate that?, thanks