Solved: Create 4 cell range to copy

[wa1esy]

[VBA]Sub fourcellcopy()
'
' fourcellcopy Macro
'
' Keyboard Shortcut: Ctrl+d
'
Range("J868:M868").Select
Selection.Copy
End Sub[/VBA]

So I want to make a quick little macro that allows me to use a keyboard shortcut to select the cell which i am in and the three cells immediately to the right, and then copy them. My only problem is that obviously in the above code selects a specific range, where as I want it to point to the cell I have highlighted at the time and the three adjacent ones. Can somebody just enlighten me as to how to do this please?

Many thanks.

[GTO]

Try:
[vba]ActiveCell.Resize(, 4).Copy[/vba]

[wa1esy]

Ah yes thanks very much for that. I changed the 3 to 4 so that it grabbed the active cell AND the 3 cells to the left. Although obviously this can just be changed to whatever I suppose.

[VBA]ActiveCell.Resize(, 4).Copy [/VBA]

This worked a treat though! I am a complete novice at VBA but hopefully everytime I ask a dumb question I'll learn something in the process until eventually I don't need to ask so many dumb questions!

Just out of interest if you wanted to specify cells above or below the active cell as well, what are the VBA codes for that kind of operation?

[mdmackillop]

You can combine Offset and Resize to define a range
eg

[VBA]

ActiveCell.Offset(-3,2).Resize(5, 4).Copy

[/VBA]